************************************************************************************** ********************************************** 



** 7 748 V3«*0 *********************************************************************** 
** ** 

** USER I.D.- 6RZDFUE TSN - 3874 ** 

** ACCT. NO.- KUKLHEY ** 

** FILENAME - MAC8Q-LIST ** 

** HAILING ADDR.- BOX 11 ** 

** DATE - 02/13/78044 TIME-13:09:16 ** 

** ** 

************************************************************************************* 



*************************************************************************************************************************** 
************************************************************************************************************************************ 
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9100 



0080 



0001 
0002 
0004 
0008 
0010 



0020 
0040 

0080 



0001 
0002 
0004 
0008 
0010 
0080 



; 3- F I L E 

;Y1013 -28/10/77 - 1500 HRS- 

; SY'1013 KEYBOARD MODUL 



W A Z 



HP 



21 MX 



COMMON EQUATES - CK34 - 6/10/76 - 1315 HRS. 



FTRAM EQU 110400Q 



;FAST RAM LOWER LIMIT 



;*************************************** 



; KBDCSW - KEYBOARD DATA COMM SWITCHES * 

;****** ********** ************ *********** 

FLDUP EQU 200Q ;HALF/FULL DUPLEX 
;************************************** 

; KBJMPR - KEYBOARD INTERFACE JUMPERS * 

-A************************************* 



JUMPERS SENSED AS 0" WHEN INSERTED 



ALL JUMPERS ARE NORMALLY INSERTED 



CNDIS EQU 001 Q 



SLDIS EQU 002Q 



LNWRP EQU 004Q 



P6STR EQU 0109 



LFPOS EQU 20Q 



FTSND EQU 40Q 



HDSHK EQU 100Q 



D2SND EQU 200Q 

i 

» 
# 

i 

* 



;CONTR0L CODE DISABLE 

CO-DISABLED) 
;SPOW LATCH DISABLE 

C0=DISABLED> 
; COLUMN 80 AUTO CR^LF 

CO=ENABLE0) 
;PAG£ MODE STRAP 
<0*LINE-FIELD MODE) 
;LINE FEED POSITION 

(0 = POSITION LINE FEED 
AT START OF NEXT I/O 
READ 
1 * PUT LINE FEED AT END 
OF RECORD) 
;9600 BAUD DATACOM SHIFT 
(0*9600 BAUD FOR ESC,E) 
;BLOCK TRANSFER HANDSHAKE 
(0 = FOLLOW DC2SND SETTING 
1 * SEND DC 2 BEFORE DATA) 

(0 = SEND DC 2 ON ENTER 

AND FUNCTION KEY IN 
BLOCK MODE 
1 = INHIBIT ALL DC2 
HANDSHAKE) 



********** 

; KBJMP2 - 
********** 

ATTRM EQU 



CRTRM 
NTEST 
ETWRP 
PNTAL 
DJMPO 



EQU 
EQU 
EQU 
EQU 
EQU 



********* 

: KBJMP3 - 
********* 



* *•** * * ** *** ** 

SECOND SET 

* ** ** * ** *** ** 

1Q 
2Q 
4Q 
10Q 
20 Q 

200Q 
************* 

THIRD SET OF 

* * *** ** **** ** 



******************** 

F KEYBOARD JUMPERS * 
******************** 

;AUTO TERMINATE ON "ENTER" 
;CLEAR TERMINATOR ON TRANSM 
;INHIBIT TERMINAL SELF-TEST 
; INVERT SENSE OF EDIT WRAP 
;SEND ALL CODES TO PRINTER 
;DATA COMM JUMPER 
******************* 

KEYBOARD JUMPERS * 
******************* 
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FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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0001 
0002 
0004 
0008 
0010 

0020 

0040 

0080 



0001 
0002 
0004 
0008 
0010 
00 20 



0001 
0002 
0004 



0003 



0000 

0001 
0002 
0010 
0020 
0040 

00 80 



0001 
0002 
0004 
0008 
0010 
00 20 
0040 
0080 



0001 
0002 



DJMP1 
DJMP2 
DJMP3 
DJMP4 
NDCST 



EQU 
EQU 
EQU 
EQU 
EQU 



1Q 
2Q 

4Q 

10ft 

20Q 



ERRORS » PAGE 2 



;DATA COKM JUMPERS 



;INHIBIT DATA COMM SELF-TES 
(0 = DISABLED) 
;TURN ON "CH" CONTROL LINE 
<0 = OFF, 1 * ON) 
;M0NIT0R CC CONTROL LINE 

(1 = ENABLED) 
;F0RCE PARITY ON/NO IN CHEC 
C1 - ENABLED) 
************************ 

CMFLGS - COMMON FLAGS * 
************************ 



SETCH 
CEKCC 
FCPTY 



EQU 406 



EQU 100Q 



EQU 200Q 



BKTRG 
ISWRP 
FCRST 
DFSKY 

RMSET 
RVMDE 



EQU 
EQU 
EQU 

EQU 
EQU 
EQU 



1Q 

2Q 
4Q 
10Q 
20Q 

40Q 



;BLOCK TRANSFER TRIGGER 
;INSERT WITH WRAP AROUND 
;FORCE FULL TERMINAL RESET 
;DEFINE SOFT KEY MODE EWABL 
;REMOTE MODE ENABLED 
;TERMINAL IN RECEIVE MODE 



-********** 

; ERRFLG - 
;********** 

DM ERR EQU 
TSTOK EQU 
LRCHK EQU 
;********** 

; INTFLG - 
;********** 

TRINT EQU 



************* 

ERROR FLAGS * 
************* 

1ft- ;DATACOM CI « ERROR) 

2Q ;SELF-TEST (0 * ERROR) 

4Q ;L0ADER CHECKSUM CO « ERROR 

**************** 

INTERRUPT FLAG * 

**************** 

3 ;TI«ER INTERRUPT 



*********************************** 

PRCCTL - PROCESSOR CONTROL FLAGS * 
*********************************** 



TIACK EQU OQ 



TMRON 
TMIEN 
DIOFF 
TIOFF 
POLL 



EQU 
EQU 
EQU 
EQU 
EQU 



;V*V*V*V* 
STROM EQU 



1Q 
2Q 
20Q 
40Q 
100Q 
SET TO 
200Q 



; ACKNOWLEDGE TIMER INTERRUP 
(BIT 1 OFF) 
;SET TIMER ON 

;RE-ENABLE TIMER INTERRUPT 
; DISABLE DATA COM* INTERSUP 
;DI SABLE TIMER INTERRUPTS 
;POLL CTU INTERRUPTS 
ZERO FOR ROM VERSION *V*V*V*V* 
; DISABLE CD /ENABLE CO) ROM 



J********************************* 

; MDFL61 - TERMINAL MODE FLAGS 1 * 
-********************************* 



DPFNC 

ISCHR 

MMLOK 

FRMAT 

EDIT 

SLECT 

RCORD 

FORGN 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



1Q 
2Q 

4Q 

10Q 

20Q 

40Q 

100Q 

200 Q 



;DISPLAY FUNCTIONS ENABLED 
;INSERT CHARACTER ENABLED 
; MEMORY LOCK ENABLED 
;F0RMAT NODE ENABLED 

;EDIT MODE ENABLED 
; SELECT MODE ENABLED 
;RECORD MODE ENABLED 

; FOREIGN MODE ENABLED 



;********************************* 
; MDFLG2 - TERMINAL MODE FLAGS 2 * 

; ********************************* 

CPSLK EQU 1Q ;CAPS LOCK ENABLED 

BKMDE EQU 2Q ;BLOCK MODE ENABLED 
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FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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FILE 20 
FILE 20 
FILE 20 
FILE 20 
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0004 
0008 
00 20 



00 OA 
0008 



9165 
9168 

FFFF 
OOFF 
FFOO 

FFFE 
FFFD 
FFFC 
FFFB 
FFFA 
FFF9 
FFF8 
FFF7 
FFF6 
FFF5 
FFF4 
FFF3 
FFF1 
FFEF 
FFED 
FFEB 
FFE9 
FFE7 
FFE5 
FFE3 
FFE1 
FFEO 
FFDE 
FFOD 
FFDC 
FFDB 
FFDA 
FFD9 
FFD8 
FFD7 
F F D5 
FFD4 
FFD2 
FFD1 



FFDO 



ATOLF 


EQU 


4Q 


RMOTE 


EQU 


10Q 


WBSR 


EQU 


40Q 



;AUTO LF ENABLED 
; REMOTE ENABLED 
;WRITE-BACKSPACE-READ KOBE 
• *************** ********************* ********** 

; RADIX - BASE OF INPUT PARAMETER FOR ESC SEQ * 
;********************************************** 

DCRDX EQU 10 ;DECIMAL NUMBERS 

QTRDX EQU 8 ;OCTAL NUMBERS 



;******************* 

; COMMON VARIABLES * 

;******************* 

ITVEC EQU FTRAM+145Q 
SNVEC EQU ITVEC+3 



CMMON 


EQU 


177777Q 


CBASE 


EQU 


CMMON/ 256 


CSTOR 


EQU 


CBASE*256 


DSPST 


EQU 


CMMON -1 


TMTYP 


EQU 


DSPST-1 


KDCSW 


EQU 


TMTYP-1 


KJMPR 


EQU 


KDCSW-1 


KJMP2 


EQU 


KJMPR-1 


IUMP3 


EQU 


KJMP2-1 


CFL6S 


EQU 


KJMP3-1 


ERFLG 


EQU 


CFL6S-1 


ITFLG 


EQU 


ERFL6-1 


PCCTL 


EQU 


ITFLG-1 


MFLG1 


EQU 


PCCTL-1 


MFLG2 


EQU 


MFL61-1 


MGPT1 


EQU 


MFLG2-2 


M6PT2 


EQU 


NGPT1-2 


MGPT3 


EQU 


MGPT2-2 


MGPT4 


EQU 


MGPT3-2 


MGPT5 


EQU 


MGPT4-2 


MGPT6 


EQU 


MGPT5-2 


MGPT7 


EQU 


MGPT6-2 


MGPT8 


EQU 


M6PT7-2 


CIVEC 


EQU 


M6PT8-2 


CIJMP 


EQU 


CIVEC-1 


IDATA 


EQU 


CIJMP-2 


ICSGN 


EQU 


IDATA-1 


IPSGN 


EQU 


IC56N-1 


PARM1 


EQU 


IPSGN-1 ; 


PARM2 


EQU 


PARM1-1 


PARM3 


EQU 


PARM2-1 


PARM4 


EQU 


PARM3-1 


PARM5 


EQU 


PARM4-1 


PARM6 


EQU 


PAR M 5 -2 


RADIX 


EQU 


PARM6-1 ; 


RN6TA 


EQU 


RADIX-2 ; 


ECFLG 


EQU 


RN6TA-1 


RTTMR 


EQU 


ECFLG-1 


; * * 


* * * 


****** 


; END 


OF COMMON EQUATE 


• * * 


* * * 


****** 



; CENTRAL INTERRUPT VECTO 
; FOREIGN TERMINAL D1SPLT SC 

;UPPER LIMIT OF COMMON AREA 
;MSB OF COMMON ADDRESSES 
;MSB ADJUSTMENT FACTOR 

;BISPLA¥ REFRESH START PTR 
;TERMINAL TYPE NUMBER 
;K£¥BOARD DATACOM SWITCHES 
;KEYBOARB STRAPS 

;SET 2 

;SET 3 
-COMMON FLAGS 
;ERROR FLAGS 
; INTERRUPT FLAG 
; PROCESSOR CONTROL FLAGS 
; TERMINAL MODE FLAGS 1 

;ANO 2 
;MESSAGE POINTERS 

• ■ 

* * 

i • 

;CTU INTERRUPT VECTOR 
;JUMP CODE FOR VECTOR 
;ESQ SEQ PARM ACCUMULATOR 
;SIGN FOR PARAMETER 
;PARAMETER SIGN 
ESCAPE SEQUENCE PARAMETERS 
t •■ 

i " 



RADIX OF PARAMETERS 

CHAR FUNCTION TABLE ADDRESS 

;ESCAPE SEQUENCE FLAG 
= 0, NOT IN ESCAPE SEQ 
# 0, ESC SEQ IN PROGRESS 

;SOFT RESET TIMER 
************* 

S * 

************* 
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7800 
7802 
7803 
7804 
7805 
7806 



7808 
780B 
780E 
7811 
7814 
7817 
781A 
781D 
7820 
78 23 
7826 



0000 
0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
OOOA 
OOOB 
OOOC 
OOOD 



0040 
0040 
0043 
0046 
0049 
004C 
004F 



;************************************************* 



■ 
r 
* 
t 

;**** 
ZCBAS 
TIGGR 
RCSEP 
BKTRM 
DJMSK 
DJMS2 
**** 



DATACOM CONSTANTS 



********************************************* 
EQU 74 000Q ; DATACOM START ADDRESS 
EQU ZCBAS+2 ;BLOCK TRANSFER TRIGGER 
EQU TIGGR+1 ;RECORD SEPARATOR CHARACTER 
EQU RCSEP+1 ;BLOCK TERMINATOR CHARACTER 
EQU BKTRN+1 ;DATA COMM JUMPER MASK 
EQU DJMSK+1 ;DATA COMM JUMPER MASK #2 

********************************************* 



DATACOM ENTRY VECTOR POINTERS 



****** 
ZNIDC 
ZN2DC 
ZCMON 
ZCCTL 
2CTST 
ZETDC 
ZUTDC 
ZGBIN 
ZTBIN 
ZDBIN 
ZCINT 

****** 



**************** 

EQU ZCBAS+10Q 

EQU ZNIDC+3 

EQU ZN2DC+3 

EQU ZCMON+3 

EQU ZCCTL+3 

EQU ZCTST+3 

EQU ZETDC+3 

EQU ZUTOC+3 

EQU ZGBIN+3 

EQU ZTBIN+3 

EQU ZDBIN+3 



**************** 



*************************** 

INITIALIZE DATACOM 
INITIALIZATION CONTINUATOR 
;MONITORING ROUTINE 
;MISC CONTROL FUNCTIONS 
;SELF-TEST 
;6ET DC CHARACTER 
;PUT DC CHARACTER 
;6ET BINARY DC CHARACTER 
;START BINARY OUTPUT 
;END BINARY OUTPUT 
; DATA COM INTERRUPTS 
*************************** 



DATACOM CONTROL CALL CODES 



************************************************* 

CRTR6 EQU ;CLEAR BLOCK TRANSFER TRIGG 

STTR6 EQU 1 ;SET BLOCK TRANSFER TRIGGER 

RETDC EQU 2 ;RESET DATACOM 

STREH EQU 3 ;SET REMOTE MODE 

STL CL EQU 4 ;SET LOCAL MODE 

PTBRK EQU 5 ;OUTPUT BREAK SIGNAL 

DSCNT EQU 6 ;KODEM DISCONNECT 

EDBLK EQU 7 ;TERM1NATE OUTPUT MESSAGE 

STMON EQU 8 ;ENTER MONITOR NODE 

STNRM EQU 9 ;ENTER NORMAL MODE 

FTBIN EQU 10 ;ENTER FAST BINARY OUT MODE 

SDATN EQU 11 ;SEND ATTENTION CODE 

SDFCT EQU 12 ;SEND FUNCTION DATA 

POMPT EQU 13 ;SEND PROMPT CODE 

************************** 

MAIN CODE ENTRY VECTORS * 
************************** 

MCDBS EQU 1006 
MCDBS 
ZSPMS+3 
ZSTDS+3 
ZCNUM+3 
ZCPLS+3 
ZCMNS+3 

;**************************************** 

; KBFL6S - KEYBOARD ROUTINE LOCAL FLAGS * 

;**************************************** 



ZSPMS 


EQU 


ZSTDS 


EQU 


ZCNUM 


EQU 


ZCPLS 


EQU 


ZCMNS 


EQU 


ZSCND 


EQU 



;DISPLAY MESSAGE 

; RESTORE NORMAL DISPLAY 

; ACCUMULATE DIGIT FOR ESC S 

;ADD IN PLUS SIGN 

;ADD IN MINUS SIGN 

;TERNINATE ESCAPE SEQUENCE 
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KLOCK 


EQU 


1Q 


PRMBM 


EQU 


2Q 


RPTKY 


EQU 


10Q 


;*************** 


; KBLEBS - 


LOCAL 


;*******,******** 


DFLED 


EQU 


1Q 


IHLED 


EQU 


2Q 


MKLED 


EQU 


4Q 


XTLED 


EQU 


10Q 


ETLED 


EQU 


20Q 


SLLED 


EQU 


40Q 


RCLED 


EQU 


100Q 


BLLED 


EQU 


200Q 



0006 
0033 
005B 

001E 

OOFF 

OOOD 
0003 



0008 
0009 
001F 
0020 
00 28 
00 2F 
0030 
0020 
0040 
0041 
005A 
0060 
00 7F 

8000 
00 8A 
00 8B 
00 CC 
OOFF 



00B2 
00B3 
00B4 
00B5 
OOFF 
00C3 
00C4 



ERRORS = PAGE 5 



; KEYBOARD DISABLED 
;PER«ANENT BLOCK BODE 
; REPEAT LAST KEY HIT 
*********************** 

KEYBOARD LED EQUATES * 
*********************** 

;DISPLAY FUNCTIONS 
; INSERT CHARACTER 

;MEKORY LOCK 

;TRANSMIT LED 

;EDIT MODE 
; SELECT MODE 

; RECORD MODE 

;BELL 



;************************ 

; MISCELLANEOUS EQUATES * 
************************ 



RTDLY 


EQU 


6 


;REPEAT DELAY C50 MSEC) 


ST DLV 


EQU 


51 


;SHORT START DELAY (500 MSE 


L6DLY 


EQU 


91 


;LONG START DELAY (900 MSEC 


BKDLY 


EQU 


30 


;LED BLINK DELAY (30x10 MSE 


BKSET 


EQU 


377Q 


;BLINK SET FLAG 


NMCOL 


EQU 


13 


;# OF KEYBOARD COLUMNS - 1 


RMBIT 


EQU 


3 


; REMOTE FLAG BIT NUMBER 


;************************** 


; ASCII CHARACTER EQUATES * 


• * * ** ** * ******** *********** 


BSPCE 


EQU 


10Q 


; A SCI I BACKSPACE CONTROL CO 


TAB 


EQU 


11Q 


;ASCII TAB CONTROL CODE 


CLMSK 


EQU 


37Q 


;MASK FOR CONTROL CODES 


CSADJ 


EQU 


40Q 


;CAPS LOCK ADJUSTMENT FACTO 


PLUS 


EQU 


53Q 


;(♦) - PLUS SIGN 


SLANT 


EQU 


57Q 


;(/) - SLANT 


ZERO 


EQU 


60Q 


;ASCII ZERO 


ABLNK 


EQU 


40Q 


;ASCII BLANK 


URLIM 


EQU 


100Q 


; UPPER CASE LOWER LIMIT 


ASCA 


EQU 


101Q 


fUPPER CASE A 


Z 


EQU 


132Q 


;UPPER CASE Z 


LRLIM 


EQU 


140Q 


;LOWER CASE CHAR LOWER LIMI 


DEL 


EQU 


177Q 


; DELETE CHARACTER ( = RUBOUT 


B15 


EQU 


100000Q 


;BIT 15 CONSTANT 


Y0212 


EQU 


212Q 




Y0213 


EQU 


213Q 




Y0314 


EQU 


314Q 




YOFF 


EQU 


377Q 




; FUNCTION 


ESCAPE 


CODES 


CRTAB 


EQU 


262Q 


;2 - CLEAR TAB 


CRTBS 


EQU 


263Q 


;3 - CLEAR ALL TABS 


STLMG 


EQU 


264Q 


;4 - SET LEFT MARGIN 


STRMG 


EQU 


265Q 


;5 - SET RIGHT MARGIN 


EHNCF 


EQU 


377Q 


;DISPLAY ENHANCEMENT FUNCTI 


CRRHT 


EQU 


303Q 


;C ~ CURSOR RIGHT 


CRLFT 


EQU 


304Q 


;D - CURSOR LEFT 
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00C6 
OOCA 
OOCB 
OOCE 
OOCF 
00 DO 
00D1 
0002 
00D5 
00 07 
00 D8 
00 09 
00 OB 
0000 

00E8 
00E9 
OOEA 
OOEC 
OOFO 
00 F9 
00 FA 
00 FB 



0098 
009A 
009C 
009F 
00 AO 
00A1 



FF20 
OOFF 
FFOO 
FF12 
FF11 
FF10 



FFOF 
FFOE 
FFOO 
FFOC 
FFOB 



9200 
0091 
9100 

91 F2 
00 F2 
91 FO 
91 EE 



KMEON 
CSCRN 
CRLNE 
IRPON 
DHWRP 
OtCHR 
IKRON 
IHROF 
NXTP6 
FTONF 
FT OFF 
DPFON 
EOPRF 
STPRF 

HMEUP 

BCKTB 

STSFK 

MLKON 

FFUNC 

MM DON 

TEST 

SXMOF 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
E&U 
EQU 
EQU 
EQU 
EQU 
EQU 

EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



306Q 
312Q 
313Q 
3169 
317Q 
320Q 
32tft 
322Q 
325Q 
327Q 
330Q 
331Q 
33 3Q 
335Q 

350Q 
351Q 
352Q 
354Q 
360Q 
371Q 
372Q 
373Q 



F - HOME OOWN 

CLEAR SCREEN 

CLEAR LINE 

INSERT CHAR W/WRAP ON 
CHAR W/WRAPAROU 
CHARACTER 
CHARACTER ON 
CHARACTER OFF 



;K 
;n 

;0 

;p 

;R 
;u 

iX 



OELETE 
OELETE 
INSERT 
INSERT 
NEXT PAGE 
FORMAT MOOE ON 
FORMAT MOOE OFF 
;Y - DISPLAY FUNCTIONS ON 
; - ENO PROTECTED FIELD 
; - START PROTECTED FIELD 
LOWER CASE 

;H - HOME UP TO UNPROTECT 
;I - BACK TAB 

;J * SET SOFT KEY DEFINE ON 
;L - MEMORY LOCK ON 
;P - F1 FUNCTION CODE 
;Y - MONITOR MOOE ON 
;Z - SELF-TEST 
; - START TRANSMIT ONLY 



EXTERNAL FUNCTION COOES 



ETRCD 
DNCOF 
RKYCO 
CNDTN 
CROKY 
EFNLM 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



230Q 
232Q 
234Q 
237Q 
240Q 
241Q 



RENTER KEY 

;OISPLAY FUNCTIONS OFF 

;REAO KEY 

CONDITION TAPE 

; CONTROL READ KEY 

;EXTERNAL FUNCTION UPPER LI 



KEYBOARD SLOW RAM EQUATES 



KSRAM 
KSBSE 
KSSTR 
KBUF2 
KFLGS 
KJ1MS 



KCHAR 
BKFLG 
KKNSV 
KLEDS 
LDSAV 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



EQU 
EQU 
EQU 
EQU 
EQU 



177440Q 

(KSRAM-1) 

KSBSE* 256 

KSRAM-14 

KBUF2-1 

KFLGS-1 



KJ1MS-1 
KCHAR-1 
BKFLG-1 
KKNSV-1 
KLEOS-1 



;UPPER LIMI 
/256 ;RSB 
;MSB ADJU 
; ACTIVE RE 
; KEYBOARD F 
; JUMPER ALT 
SET TO 1 I 
ALTERED BY 
; REPEATING 
;LEO BLINK 
^REPEATING 
;STATE OF K 
;SAVE AREA 



T OF SLOW RAM AR 

OF SLOW RAM AREA 

STMENT FACTOR 

YS STATE TABLE 

LAGS 

ER INHIBIT MASK 

F NOT TO BE 

ESCAPE SEQUENCE 
KEY CHARACTER 
FLAG 

KEY NUMBER 
EYBOARD LED»S 
FOR LEO VALUES 



KEYBOARD FAST ACCESS RAM EQUATES 



KFRAM EQU 
KFBSE EQU 
KFSTR EQU 



KBBUF 
KBUFL 
KBFPT 
KYCOL 



EQU 
EQU 
EQU 
EQU 



FTRAM+400Q ;UPPER LIMIT OF FAST RAM 
(KFRAM-D/256 ;MSB OF FAST RAM AREA 
KFBSE*256 ;MSB ADJUSTMENT FACTOR 

KFRAM-14 ;COLUMN STATE TABLE BUFFER 
KBBUF-KFSTR ;LSB OF STATE TABLE ADD 
KB3UF-2 ;KEYBOARD STATE TABLE POINT 
KBFPT-2 ;KEYBOARD COLUMN ADDRESS 



FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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91 ED 
91EC 
0028 
91C4 



00C4 
91C2 
91 CO 



FF12 

0001 
0004 
0002 
0008 
0010 

FF17 

0001 

FFTB 

0001 
0002 

OOOD 
0001 



0008 
0010 
0020 
0040 



0080 
8300 
830E 
830F 
8380 
83 AO 

83 00 
8380 
0002 
0004 
8320 



BKTMR 


EQU 


KYC0L-1 


KT1MR 


EQU 


BKTMR-1 


KYBLN 


EQU 


40 


KYBUF 


EQU 


KTIMR-K 



KYBFL 


EQU 


KYBUF-K 


KPTPT 


EQU 


KYBUF-2 


KGTPT 


EQU 


KPTPT-2 


; EQUATES 


TO SPEC I 


KCTSH 


EQU 


KBUF2 


LFFKY 


EQU 


1Q 


LF1KY 


EQU 


4Q 


LF2KY 


EQU 


2Q 


LHFKY 


EQU 


10Q 


RHFKY 


EQU 


20Q 


TTRGW 


EQU 


KBUF2+5 


TTCOL 


EQU 


1Q 



IKYRW EQU KBUF2+9 
IKYCL EQU 1Q 
ETCOt EQU 2Q 



ERRORS = PAGE 7 



;BLINK DELAY TIMER 

;KEY REPEAT TIMER 

;KEY BUFFER LENGTH 
KYBLN ;KEY BUFFER 

EACH TWO BYTE ENTRY IN THE 
KEY BUFFER REPRESENTS ONE 
OR MORE KEY TRANSITIONS. 
THE MSB IS THE KEYBOARD 
COLUMN NUMBER AND THE LSB, 
THE BITS CHANGED. 
KFSTR ;LSB OF KEY BUFFER ADD 

;KEY BUFFER PUT POINTER 

;KEY BUFFER SET POINTER 



;CONTROL AND SHIFT KEYS 
; SHI FT LEFT FIX 



;LEFT SHIFT KEY 
;RIGHT SHIFT KEY 

;TEST KEY ROW 
;TEST KEY BIT 

;I/0 CONTROL KEY ROW 
;I/0 CONTROL (GOLD) 



KEY 



BKYRN 
BKCOL 



EQU 
EQU 



13 
1Q 



;ENTER KEY 

; BREAK KEY ROW NUMBER 
; BREAK KEY 



EQUATES TO SPECIFIC KEY NUMBERS 



;REMOTE 
;CAPS LOCK 
;AUTO LINE FEED 
;BLOCK MODE 



RKYNM EQU 10Q 

CKYNM EQU 20Q 

AKYNM EQU 40Q 

BKYNM EQU 100Q 

r 

f ********************* 

; I/O MODULE EQUATES * 

;****************#**** 

IBASE EQU 2O0Q ;I/0 ADDRESS MSB'S 

IOKB EQU <3Q*IBASE>*256 ;M0DULE 11 BASE ADDRESS 

IKBSW EQU I0KB+16Q ; KEYBOARD JUMPERS IN 

IKBDC EQU I0KB-H7Q ;DATACOM SWITCHES IN 

IKBS2 EQU I0KB+200Q ;KEYBOARD JUMPERS 2 IN 

IKBS3 EQU I0KB+240Q ^KEYBOARD JUMPERS 3 IN 

IKBLD EQU IOKB+OQ ;SET KEYBOARD LEO'S 

IKBCO EQU IOKB+2O0Q ;RESET KEY CONTROL 

RSTON EQU 2Q ; ENABLE RESET KEY 

RTOFF EQU 4Q ;DISABLE RESET KEY 

IKBCL EQU I0K3+40Q ; OUTPUT LAST COLUMN STATE 



*************************** 
START OF KEYBOARD CODE * 



FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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7000 
7000 
7000 
7001 



7002 
7005 
7008 
700B 
700E 
7011 
7014 
7017 
701A 
701D 
7020 
7023 
7026 



70 29 
70 2 A 



70 2B 
702B 
702F 
7033 
70 37 
70 3B 
703F 
7043 
7047 
704B 
704F 
7053 
7057 
705B 
705 F 
7063 
7067 
706B 
706F 
7073 
70 77 
707B 
707F 
7083 
70 87 
708B 
708F 
7093 
7097 



50 
70 



C33771 
C36971 
C31774 
C35373 
C33D75 
C36475 
C39575 
C39E75 
C3A775 
C3B275 
C33276 
C39176 
C39E76 



10 

00 



**************************** 



KBASE 



ORG 


70000Q 


E6U 


$ 


DB 


120Q 


OB 


KBASE/256 


OARD 


ENTRY VEC 


JMP 


IITKB 


JMP 


GTKEY 


J MP 


KBCTL 


JMP 


KBMON 


JMP 


STMD1 


JMP 


CRMD1 


JMP 


BELL 


JMP 


STXMT 


JMP 


CRXMT 


JMP 


SJMPR 


JMP 


SLKYS 


JMP 


APCHK 


JMP 


NMCHK 



KEYBOARD CONSTANTS 



FSALT: OB 206 
ATOUT: OB OB 



;START ©F KEYBOARD CODE 

;REGION (2K) 
;SET ROM PRESENT INDICATORS 



;KEYB0ARD INITIALIZATION 

;GET KEYBOARD KEY 

;PERFORK KEYBOARD CONTROL 

; MONITOR KEYBOARD 

;SET MODE 1 FLAGS 

;CLEAR MODE 1 FLAGS 

;SOUND THE KEYBOARD BELL 

;SET TRANSMIT LED 

; CLEAR TRANSMIT LED 

;SET JUMPER ESC Sift ROUTINE 

;SET LATCHING KEYS ESC SE6 

;CHECK FOR ALPHA KEY ENTRY 

;CHECK FOR NUMERIC KEY ENTRY 



; INITIAL ALT CHAR SET * SET 
;INITIAL ALT CHAR SET OUT * 



LOWER CASE ASCII TRANSLATION TABLE 



LRASC 



00000000 
00DECC3E 
86317179 
FDA4963C 
0D327778 
230FOOF4 
80336563 
7BC4D3F5 
84347276 
7C88C1F6 
FA357462 
6CC3E8F7 
C5367A20 
6B89BED0 
8137756E 
6AC2BD8C 
8538696D 
68D4BC00 
9B986F2C 
67009100 
9C39702E 
6695A0F3 
9D307D2D 
640093F2 
9E7E3D00 
730000F1 
00245 FOO 
610000F0 



E6U $ 

DB 0006,0008,0006,0008 

DB 0006,3366,3146,0766 

DB 2068,0616,1616,1716 

DB 3758, 2448, 2266,^746 

DB 0156,0626,1676,1706 

DB 0436,3376,0006,3646 

DB 2006,0636,1456,1436 

DB 1736,3046,3236,3656 

DB 2046,0646,1626,1666 

DB 1746,2106,3016,3666 

DB 3726,0656, 1646/1426 

DB 1546,3036,3506,3676 

DB 3056,0666,1726,0406 

DB 1536,2116,2766,3206 

DB 2016,0676,1656^1566 

DB 1526,3026,2756,2146 

DB 2056,0706,1516,1556 

DB 1506,3246,2746,0006 

DB 2336,2306,1576,0546 

DB 1476,0006,2216,0006 

DB 2346,0716,1606^0566 

DB 1466,2256,2406,3636 

OB 2356,0606,1756,0556 

DB 1446,0006,2236,3626 

DB 2366,1766,0756,0006 

DB 1636,0006,0006,3616 

OB 0006,0446,1376,0006 

DB 1416,0006,0006,3606 



; COLUMN 
; COLUMN 1 
; COLUMN 2 
;COLUHN 3 
; COLUMN 4 
^COLUMN 5 
; COLUMN 6 
; COLUMN 7 
; COLUMN 8 
; COLUMN 9 
; COLUMN 10 
;COLUMN 11 
; COLUMN 12 
; COLUMN 13 



FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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; UPPER CASE ASCII TABLE 






709B 




URASC E8U 


$ 






70 9B 


00000000 


DB 


0000,0000,0000,0000 


;C0LURN 





709F 


0031343E 


DB 


0000,0610,0640,0 760 






70A3 


863B5159 


DB 


2060,0730,1210,1310 


; COL URN 


1 


70A7 


QD32353C 


DB 


0158,0620,0650,0740 






70AB 


0D605758 


DB 


0158,1400,1270,1300 


; COLUMN 


2 


70 AF 


223336F4 


OB 


0420,0630,0660,3640 






70 B3 


807F4543 


DB 


2000,1 770, 105Q,103Q 


; COLUMN 


3 


70B7 


5B8AD3F5 


DB 


1330,2120,3230,3650 






70BB 


84255256 


DB 


2048,0450,1220,1260 


; COLUMN 


4 


70BF 


5C88C1F6 


OB 


1340,2100,3010,3660 






70 C3 


FA265442 


DB 


3720,0460,1240,1020 


; COLUMN 


5 


70C7 


4C8BD6F7 


DB 


1140,2130,3260,3670 






70CB 


C5285A20 


DB 


3058,0508,1328,0408 


; COLUMN 


6 


70 CF 


4BD5CAD0 


DB 


1130,3250,3120,3200 






70 D3 


81295 54E 


DB 


2018,0510,1250,1160 


; COLUMN 


7 


70D7 


4AC2008C 


DB 


1120,3020,0000,2140 






70DB 


85 2A494D 


DB 


2050,0520,1110,1150 


; COLUMN 


8 


70 DF 


48D4008D 


DB 


1100,3248,0008,2150 






70E3 


9B984F3F 


DB 


2338,2300,1170,0770 


; COLUMN 


9 


70E7 


473039CD 


DB 


1078,0600,0710,3150 






70EB 


9C405021 


DB 


2340,1000,1200,0410 


; COLUMN 


10 


70EF 


46FC38F3 


DB 


1068,3740,0700,3630 






70 F3 


9B2F5D27 


DB 


2350,0570,1350,0470 


;COLUMN 


11 


70F7 


440037F2 


DB 


1040,0000,0670,3620 






70FB 


9E3A2B00 


DB 


2368,0728,0530,0000 


; COLUMN 


12 


70 FF 


530000F1 


DB 


1238,0000,0000,3618 






7103 


005E5FOO 


DB 


0000,1360,1370,0000 


; COLUMN 


13 


7107 


410000FO 


DB 


1010,0000,0000,3600 







; ALTERNATE FUNCTION KEY FUNCTIONS TABLE * 



NORMAL FUNCTION CODES FOLLOWED BY ALTERNATES 



71 OB 




710B 


9C 


71 OC 


AO 


71 OD 


B2 


710E 


83 


710F 


C4 


7110 


B4 


7111 


C3 


7112 


B5 


7113 


CA 


7114 


CB 


7115 


DO 


7116 


01 


7117 


D5 


7118 


02 


7119 


E8 


71 1A 


C6 


71 1B 


FA 


711C 


9F 


71 1D 


FO 


711E 


FF 



NHFCT 



E8U 


$ 


DB 


RKYCD 


DB 


CRDKY 


DB 


CRTAB 


DB 


CRTBS 


DB 


CRLFT 


DB 


STLMG 


DB 


CRRHT 


DB 


STRMG 


DB 


CSCRN 


DB 


CRLNE 


DB 


DLCHR 


DB 


CECK1 


DB 


NXTPG 


DB 


CECK2 


DB 


HMEUP 


DB 


KMEDN 


OB 


TEST 


DB 


CNDTN 


DB 


FFUNC 


DB 


EHNCF 



;READ KEY 

;C0NTR0L READ KEY 
; CLEAR TAB 

; CLEAR ALL TABS 
; CURSOR LEFT 

;SET LEFT MARGIN 
;CURS0R RIGHT 

;SET RIGHT MARGIN 
; CLEAR SCREEN 

; CLEAR LINE 
;DELETE CHARACTER 

;ADDITI0NAL CHECK 1 
;NEXT PAGE 

ADDITIONAL CHECK 2 
;HOME UP 

;HOME DOWN 
;SELF-TEST 

^CONDITION TAPE 
;F1 KEY 

; START DISPLAY ENHANCEMENT 



FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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711F 
7120 
7121 
7122 
7123 
7124 
7125 
7126 
7127 
7128 

OOOF 
0001 
0002 



7129 
7129 
71 2B 
7120 
712F 
7131 
7133 
7135 

0080 
0087 



F1 
DB 
F2 
DD 
F3 
D7 
F4 
08 
F5 
FB 



F672 
0473 
1973 
3673 
3B73 
4073 
4573 



7137 




7137 


3A0E83 


713A 


32FBFF 


7130 


3A8083 


7140 


32FAFF 


7143 


3AA083 


7146 


32F9FF 


7149 


3A0F8 3 


71 4C 


32FCFF 


714F 




714F 


21FF91 


7152 


22F091 


7155 


210D83 


7158 


22EE91 


71 5B 


21EB91 


71 5E 


22C091 


7161 


22C291 



OB 
OB 
OB 
OB 
DB 
DB 
OB 
DB 
DB 
OB 

NMALT EQU 
CECK1 EQU 
CECK2 EQU 



ERRORS = PAGE 10 



FFUNC+1 ;F2 KEY 

EDPRF ;END PROTECTED FIELD 

FFUNC+2 ;F3 KEt 

STPRF ; START PROTECTED FIELD 

FFUNC+3 ;F4 KEY 

FTONF ; FORMAT MODE ON 

FFUNC+4 ;F5 KEY 

FTOFF ;FORMAT MODE OFF 

FFUNC+5 ;F6 KEY 

SXMOF ;START TRANSMIT-ONLY FIELD 

<$-NMFCT>/2 ;» OF ALTERNATE FUNCTIONS 

1 ;EXTRA CHECK 1 FLAG 

2 ; EXTRA CHECK 2 FLAG 



INTERNAL FUNCTIONS VECTOR TABLE 



FCTAB 



EQU 


$ 


DW 


CMLOK 


DW 


CDSFN 


DW 


CICHR 


OW 


SCPLK 


DW 


SAULF 


DW 


SBLKM 


DW 


SRMMD 



FBASE EQU 2000 
FCLIM EQU 207Q 



200 - MEMORY LOCK 

201 - DISPLAY FUNCTIONS 

202 - INSERT CHARACTER 

203 - CAPS LOCK 

204 - AUTO LF 

205 - BLOCK MODE 

206 - SET REMOTE MODE 

; FUNCTION LOWER LIMIT 
;FUNCTION CODE UPPER LIMIT 



************************ 

INITKB - INITIALIZE KEYBOARD 

ENTRY: DON'T CARE 

EXIT s A DESTROYED 

NC = NO ERRORS 

C - ERROR DETECTED 

B,C = POINTER TO ERROR MESSAGE 



IITKB EQU $ 

LOA IKBSW 

STA KJMPR 

LOA IKBS2 

STA KJMP2 

LDA IKBS3 

STA KJMP3 

LOA IKBOC 

STA KDCSW 

IITKO EQU $ 

LXI H,KBBUF+NMCOL 

SHLO KBFPT ; INITIALIZE STATE TABLE 

LXI H^IOKB+NMCOL ; POINTERS 

SHLO KYCOL 

LXI H # KYBUF+KYBLN-1 

SHLO KGTPT ; INITIALIZE TRANSITION 

SHLD KPTPT ;8UFFER POINTERS 



;6ET KEYBOARD STRAP SETTINGS 
;AND STORE THEM 



;6ET AND STORE THE DATA 
;COHM SWITCHES 



FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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7164 
7165 
7165 
7168 



7169 
7169 
716A 
71 6D 
7170 
7172 
7175 
7178 
7178 
71 7B 
717C 
71 7F 
7182 
7182 
7185 
7188 
7189 
718C 
71 8C 
718F 



AF 

320083 
C9 



IITK1 



XRA A 

EQU $ 

STA IKBLD 
RET 



; CLEAR THE LEDS ON THE 

: KEYBOARD 



; RETURN C = FALSE 



r 
* 

i 

r 



*********************************** 

6TKEY - GET A KEYBOARD CHARACTER * 
*********************************** 

ENTRY: DON'T CARE 



EXIT : Z - KEYBOARD INPUT PRESENT 

A = KEYBOARD CHARACTER CODE 
NZ - NO KEYBOARD INPUT 

A = # NO KEY HIT COR NULL CHAR) 
A # Q KEYBOARD LOCKED (A IS 
KEYBOARD CHARACTER CODE) 
B,C,fr,E DESTROYED 

KEY VALUES IN THE RANGE 260-376 (OCTAL) 
REPRESENT TWO CHARACTER ESCAPE SEQUENCES 
GENERATED FROM FUNCTION KEYS. THE SECOND 
CHARACTER IS OBTAINED BY MASKING OUT THE 
HIGH ORDER BIT, 

KEY VALUES IN THE RANGE 230-241 (OCTAL) 
REPRESENT INTERNAL FUNCTION KEYS AS 
FOLLOWS: 



# 
# 

i 

t 
i 

i 

r 

i 
* 
i 

i 

t 
# 

# 
i 
# 

GTKEY 



E5 

CD9274 

3A11FF 

E608 

C2A271 

2AC091 

3AC291 
BD 

C2AF71 
CD7573 

2AC091 
3 AC 291 
BD 
C2AF71 

3A0F83 
32FCFF 



GK005 



6K010 



GK020 



230 
231 
232 
233 
234 
235 
236 
237 

EQU 

PUSH 

CALL 

LDA 

ANI 

JNZ 

LHLD 

EQU 

LDA 

CMP 

JNZ 

CALL 

EQU 

LHLD 

LDA 

CMP 

JNZ 

EQU 

LDA 

STA 



ENTER KEY PRESSED 
BREAK KEY PRESSED 
DISPLAY FUNCTIONS OFF 
I/O CONTROL KEY PRESSED 
READ KEY PRESSED 
RECORD KEY PRESSED 
SELECT KEY PRESSED 
CONDITION TAPE FUNCTION 



$ 

H 

SRTS1 

KFLGS 

RPTKY 

GKQ40 

KGTPT 

$ 

KPTPT 

L 

GK100 

KM0N1 

$ 

KGTPT 

KPTPT 

L 

GK100 

$ 

IKBDC 

KDCSW 



;SAVE H AND L 

; ENABLE RESET KEY 

;6ET KEYBOARD FLAGS 

; REPEAT LAST KEY HIT? 

;YES - RE-ISSUE THE KEY 

;N0 - FETCH BUFFER GET PTIT 

;6ET LSB OF PUT POINTER 
;BUFFER EMPTY? 

;N0 - PROCESS KEYBOARD INPUT 
;YES - LOOK FOR STATE CHANGE 

;GET KEY BUFFER POINTERS 

; BUFFER EMPTY? 

;N0 - PROCESS KEYBOARD INPUT 

;YES - UPDATE SETTINGS OF 
; KEY BOARD DATACOM SWITCHES 



FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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7192 
7195 
7196 
7197 
71 9A 
719C 
71 9C 
71 9F 



71 A2 
71A2 
71A5 
71 A6 
71A7 
71A8 



71 AB 
71 AB 
71AB 
71AE 



71AF 
71 A F 
71B1 
71B2 
71 B3 
71 B4 
71B5 
71B8 
71 B9 
71 BA 
71 BB 
71BE 
71BF 
71 C1 
71 C2 
71C5 
71 C7 
71C7 
71 C8 
71 CB 



21EC91 

7E 

3D 

C2AB71 

3606 

3A0FFF 
C37C72 



2111FF 

2F 

A6 

77 

C39C71 



F6FF 

E1 

C9 



1600 

5E 

2B 

4E 

E5 

2112FF 

19 

7E 

A9 

C2CE71 

E1 

3EC4 

BD 

C2C771 

2EEC 

2B 

22C091 

C37871 



71 CE 




71CE 


33 


71 CF 


33 


71 DO 


4F 


71 D1 


AF 


71 D2 


91 



;************************** 

; CHECK FOR REPEATING KEY * 
I************************** 



GKO30 



LXI 
MOV 
DCR 
JNZ 
MVI 
EQU 
LDA 
J MP 



H,KTIMR 

A # M 

A 

GK060 

M^RTDLY 

$ 

KCKAR 

GKYX1 



;6ET THE REPEAT DELAY TIMER 

;TIME TO REPEAT? 

;N0 - EXIT NO KEY HIT 

;YES - RESET COUNTER 

; RE CALL THE KEYBOARD CHAR 
;RETURN KEY HIT 



;********************** 

; REPEAT LAST KEY HIT * 

;********************** 

GK040 



EQU 
LXI 
CMA 
ANA 
MOV 
JMP 



$ 



KFLGS 



; CLEAR REPEAT FLAG 

; CONVERT BIT TO CLEAR MASK 



M 

M„A 

GK030 



;CLEAR REPEAT 
;UPDATE FLAGS 
;RE-ISSUE THE 



KEY FLAG 



KEY CODE 



;************************ 

; NO KEY CHANGES - EXIT * 

;************************ 



GK060 



EQU 
ORI 
POP 
RET 



$ 
377Q 

H 



;SET NC, 
^RESTORE 



NZ 
H,L 



KEYBOARD STATE CHANGE IN BUFFER 



6K100 



EQU 

MVI 

MOV 

DCX 

MOV 

PUSH 

LXI 

DAD 

MOV 

XRA 

JNZ 

POP 

MVI 

CMP 

JNZ 

MVI 

EQU 

DCX 

SHLD 

JMP 



;********** 
; KEYBOARD 

;********** 



6K120 



GK130 



EQU 
INX 
INX 
MOV 
XRA 
SUB 



$ 

D # 

E,M 

H 

C,M 

H 

h # kbuf; 

D 

A„M 
C 

GK130 
H 

A„KYBFI 
L 

GK120 
L,KYBF 
$ 
H 

KGTPT 

GK005 

******* 

CHANGE 
******* 

$ 

SP 

SP 

C,A 

A 

C 



;SET D FOR MSB = 

;GET KEYBOARD COLUMN NUMBER 

;<D * 0) 
;GET NEW STATE VALUE 
;SAVE BUFFER ADDRESS 
;COMPUTE LOCATION OF 

;STATE TABLE BYTE 

;ANY MORE CHANGES? 

;YES - GO PROCESS CHANGES 

;N0 - ADVANCE TO NEXT 
L ;BUFFER ENTRY 

; REACHED START OF BUFFER? 

;N0 - MOVE TO NEXT BYTE 
L+KYBLN ;YES - RESET POINTER 

;MOVE TO NEXT BYTE 
; UPDATE GET POINTER 
;CHECK FOR MORE CHANGES 
************ ** * ************** 

FOUND - DETERMINE NEW STATE * 
***************************** 

;POP OFF TOP OF STACK 

;EXTRACT RIGHTMOST CHANGED 
;BIT 



FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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FILE 20 
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FILE 20 
FILE 20 
FILE 20 
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FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 



80 MACRO ASSEMBLER, 


VER 2.4 




71 D3 


A1 


ANA 


C 


71 D4 


47 


MOV 


B,A 


71 D5 


AE 


XRA 


M 


71 D6 


77 


MOV 


M # A 


71 D7 


AO 


ANA 


B 


71 D8 


C22572 


JNZ 


6K200 


71 DB 


CD0373 


CALL 


GKYNM 


71DE 


BE 


CMP 


M 


71DF 


C2E971 


JNZ 


GK15Q 


71 E2 


7A 


MOV 


A,D 


71E3 


32EC91 


STA 


KTIMR 


71 E6 


C38271 


JMP 


GK010 



ERRORS * PAGE 13 



71 E9 
71 E9 
71 EB 
71EE 
71 F1 
71 F3 
71F6 
71 F8 
71 FB 
71 FD 
7200 
7203 
7205 



7208 
7208 
720B 
72 OD 
7210 
7212 



7215 
7215 
7217 



721A 
721A 

721C 
721C 
721D 
7220 
7221 
7222 



FE40 

CA0872 

F28271 

FE20 

CA1572 

FE10 

CA1A72 

D608 

C28271 

32EC91 

3E08 

C31C72 



3A11FF 

E602 

C28271 

3E02 

C31C72 



3E04 
C31C72 



3E01 



2F 

21F3FF 

A6 

77 

C 38 271 



;SAVE CHANGED BIT IN B-REG 
;COMPUTE NEW STATE AND 

; UPDATE STATE TABLE 
;WAS KEY RELEASED? 
;N0 - EXTRACT KEY CODE 
;YES - COMPUTE KEY NUMBER 
;WAS THE KEY REPEATING? 
;N0 - CHECK FOR LATCH RELEAS 
;CLEAR THE REPEAT TIMER 

;TRY FOR ANOTHER KEY 



NON-REPEATING KEY RELEASED - CHECK FOR 
LATCHING KEY RELEASE 



GK150 



GK160 



6K170 



EQU 


$ 


CPI 


BKYNM 


JZ 


GK160 


Jp 


GK010 


CPI 


AKYNM 


JZ 


6K170 


CPI 


CKYNM 


JZ 


GK180 


SUI 


RKYNM 


JNZ 


GK010 


STA 


KTIMR 


MVI 


A,RMQTE 


JMP 


GK190 


K MODE KEY R 


EQU 


$ 


LDA 


KFLGS 


ANI 


PRMBM 


JNZ 


GK010 


MVI 


A,BKRDE 


JMP 


GK190 


LF 


KEY RELE 


EQU 


$ 


MVI 


A # ATOLF 


JMP 


GK190 



;BLOCK MODE KEY? 
;YES - RESET BLOCK MODE 
;NOT LATCHING KEY - TRY AGAI 
;AUTO LF KEY? 
;YES - RESET AUTO LF FLAG 
;CAPS LOCK KEY 
;YES - RESET CAPS LOCK FLAG 
; REMOTE KEY? 

;N0 - TRY FOR ANOTHER KEY 
;YES - CLEAR REPEAT TIMER 
;AND CLEAR REMOTE FLAG 



;GET KEYBOARD FLAGS 
;SET FOR PERMANENT BLOCK MDE 
;YES - TRY FOR ANOTHER KEY 
;N0 - CLEAR BLOCK MODE FLAG 



;SET FLAG BIT TO BE CLEARED 
;CLEAR THE FLAG AND RETURN 



CAPS LOCK KEY RELEASE - RESET CAPS LOCK FLAG 



GK180 EQU $ 

MVI A,CPSLK 



GK190 



EQU 
CMA 
LXI 
ANA 
MOV 
JMP 



H„MFL62 

M 

M,A 

GK010 



;SET FLAG BIT TO BE CLEARED 



;CONVERT TO CLEAR MASK 
;CLE*R FLAG FROM TERMINAL 

;MODE FLAGS 2 
; UPDATE FLAGS 
;TRY FOR ANOTHER KEY 



NEW KEY IS PRESSED DOWN - COMPUTE KEY CODE 
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72 25 
7225 
7228 
7229 
722C 
722D 
7230 
7232 
7235 
7238 



72 3B 
72 3B 
723C 
72 3D 
723E 
723F 
7242 
7245 
7248 
7249 
72 4B 
724E 
72 50 
72 53 
7255 
7258 
725A 



725D 
725D 
725F 



7262 
7262 
7265 
7267 
7268 
726B 
72 6D 
7270 
7272 
7275 



7277 
7277 
727A 



21EC91 

72 

CDD373 

77 

3A12FF 

E61B 

212B70 

CA3B72 

219B70 



19 

46 

78 

B7 

CA8271 

FA9172 

C36272 

78 

FE08 

CA5D72 

FE09 

CA5D72 

FE40 

FA7772 

E61F 

C37772 



3EE9 
C 3777 2 



3AF3FF 

E601 

78 

CA7772 

FE60 

FA7772 

FE7F 

CA7772 

D620 



21EC91 
36FF 



GK200 



EQU 

LXI 

MOV 

CALL 

MOV 

LDA 

ANI 

LXI 

JZ 

LXI 



H^KTIMR 
M,D 

GKYNM 

M,A 

KGTSH 



;CLEAR THE REPEAT TIMER 



;COMPUTE KEY NUMBER 

; UPDATE CURRENT REPEATING ICE 

;GET CONTROL/SHIFT KEY COLOR 

LHFKY+RHFKY+LFFKY-H-F2KY 

H*LRASC ;<SET FOR LOWER 

GK210 

H,URASC 



CASE TABLE 



;YES - GET THE KEY CODE 
;NO - USE UPPER CASE TABLE 



EXTRACT KEY CODE FROM TABLE 



6K210 



EQU 

DAD 

MOV 

MOV 

ORA 

JZ 

JM 

JMP 

MOV 

CPI 

JZ 

CPI 

JZ 

CPI 

JM 

ANI 

JMP 



$ 

D 

B,M 

A,B 

A 

GK010 

GK300 

6K220 

A,B 

BSPCE 

GK215 

TAB 

6K215 

URLIM 

GK230 

CLMSK 

GK230 



;(D * # E = KEY NUMBER) 
; INDEX TABLE BY KEY NUMBER 
;FETCH THE TABLE VALUE 

;ANY KEY CODE? 

;N0 - TRY FOR ANOTHER KEY 

;PROCESS FUNCTION CODE IF S= 

;YES - MOVE CHARACTER TO A 
;IS IT THE BACKSPACE KEY? 
;YES - CHANGE TO BACK TAB 
;IS IT THE TAB KEY? 
;YES - CHANGE TO BACK TAB 
;IS CHARACTER ALPHABETIC? 
;NO - RETURN UNALTERED CHAR 
;YES - MASK FOR CONTROL CODE 
; RETURN KEY HIT 



CONTROL-BACKSPACE/ TAB - CHANGE TO BACK TAB 



GK215 EQU $ 

MVI A,BCKTB 
JMP GK230 



;RETURN BACK TAB CODE 



CONTROL KEY UP - CHECK FOR CAPS LOCK 



GK220 



EQU $ 

LDA MFLG2 ;GET TERMINAL MODE FLAGS 2 

ANI CPSLK ;CAPS LOCK SET? 

MOV A # B ;<PUT KEY CODE IN A-REG) 

JZ GK230 ;NO - RETURN KEY HIT 

CPI LRLIM ;IS KEY LOWER CASE? 

JM GK230 ;N0 - RETURN KEY HIT 

CPI DEL ;IS KEY = DELETE (RUBOUT)? 

JZ GK230 ;YES - RETURN KEY HIT 

SUI CSADJ ;NO - ADJUST TO UPPER CASE 



RETURN WITH LONG REPEAT DELAY 



GK230 



EQU 
LXI 
MVI 



H # KTIMR ;SET KEYBAORD REPEAT TIMER 
M,YOFF ;FOR NO REPEAT DELAY 



GTKYX1 - RETURN KEY HIT 
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727C 




6KYX1 


EQU 


$ 


72 7C 


320FFF 




STA 


KCHAR 


727F 


6F 




HOV 


L,A 


7280 


3A11FF 




LDA 


KFL6S 


7283 


E601 




ANI 


KLOCK 


72 85 


7D 




MOV 


A # L 


7286 


C28B72 




JNZ 


6K24Q 


7289 


E1 




POP 


H 


728A 


C9 




RET 








; RETURN NO KEY HI 


728B 




GK240 


EQU 


$ 


72 8B 


21EC91 




LXI 


H # KTIMR 


728E 


72 




MOV 


m,d 


728F 


E1 




POP 


H 


7290 


C9 




RET 





72A9 
72A9 
72 AA 
72A0 

72AF 
72AF 
72B0 
72B1 
72 B4 
72B5 
72B6 
72B9 



72BC 
72BC 
72 BD 
72 BF 
72C2 
72C4 



;SAVE THE CHARACTER FOR RPT 
;SAVE CHARACTER IN L-REGISTE 
;GET KEYBOARD FLAGS 
;KEYBOARD LOCKED? 

; (RECALL KEYBOARD CHAR) 
;*ES - RETURN NO KEY HIT 
;NO - RESTORE H,L 
; RETURN Z TRUE 



;CLEAR THE REPEAT TIMER 



;RECALL H,L 

; RETURN Z FALSE 



•*****************! 



t ********************** ****** 

FUNCTION KEY - CHECK FOR CONTROL EXCHANGES * 

r ******************* ********* 



■*****************! 



7291 




72 91 


FE87 


7293 


FAE972 


7296 


3AFAFF 


7299 


E608 


72 9B 


78 


72 9C 


CAC772 


729F 


FEDO 


72A1 


C2C772 


72 A4 


3ECF 


72 A6 


C3C772 



GK300 



EQU 

CPI 

JM 

LDA 

ANI 

MOV 

JZ 

CPI 

JNZ 

It VI 

JMP 



$ 

FCLIM 

GK400 

KJMP2 

ETWRP 

A # B 

GK350 

DLCHR 

6K350 

A # DHWRI 

GK350 



INTERNAL FUNCTION CODE? 
YES - PROCESS INTERNAL CODE 
NO - GET KEYBOARD JUMPERS 2 
EDIT WRAP AROUND REVERSED? 

; (RECALL FUNCTION CODE) 
NO - RETURN NORMAL CODE 
IS IT DELETE CHARACTER? 
NO - RETURN NORMAL CODE 
YES - USE DELETE WRAPAROUND 
SET THE FUNCTION CODE 



78 

210B71 

OEOF 



BE 

23 

CABC72 

23 

OD 

C2AF72 

C3C772 



;***************************************** 

; CONTROL KEY DOWN - CHECK FOR ALTERNATE * 
; FUNCTIONS * 

***************************************** 

EQU $ 

MOV A,B ;RECALL THE FUCNTION CODE 

LXI H^NMFCT ;SET INITIAL TABLE ADDRESSES 

MVI C # NMALT ;SET NUMBER OF ALTERNATES 



6K310 



GK320 EQU 
CMP 
INX 
JZ 
INX 
DCR 
JNZ 
JMP 

;********** 

; FUNCTION 

;********** 



GK330 



7E 

FE01 

CADB72 

FE02 

CACD72 



EQU 

MOV 

CPI 

JZ 

CPI 

JZ 



$ 
M 
H 

GK330 
H 
C 

GK320 
GK350 
********* 

WITH ALTE 
********* 

$ 

A # M 

CECK1 

GK380 

CECK2 

GK370 



;FUNCTION 

;(ADVANC 
;YES - GET 
;N0 - STEP 
;TABLE EXH 
;N0 - TRY 
;YES - USE 
************ 

RNATE FOUND 
************ 



FOUND? 

E TO ALT CODE) 
ITS ALTERNATE 
TO NEXT ENTRY 

AUSTED? 

NEXT VALUE 
NORMAL FUNCTION 

***************** 

- USE ALTERNATE * 
***************** 



;GET THE ALTERNATE FUNCTION 
; FURTHER CHECKING REQUIRED? 
;YES - GO DO IT 



;YES - GO DO IT 
NO - SET FUNCTION 



CODE 
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FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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72E9 
72 E9 
72 EB 
72 EC 
72ED 
72 FO 
72 F1 
72F2 
72F3 
72 F4 
72F5 



72 F6 
72 F6 
72 F 9 
72FB 

72 FO 

73 00 
7301 



7304 
7304 
7307 
7309 
730C 



******************** 







i 


SET 


FUNCTION CODE * 






• ************ ******** 


72C7 




GK350 


EQU 


$ 


72C7 


C0E473 






CALL 


STRPT 


72CA 


C37C72 


r 




J MP 


GKYXl 






r 
# 


TOGGLE SOFT KEY/NO 


72CD 




6K370 


EQU 


$ 


72CD 


3AF8FF 






LDA 


CFLGS 


72D0 


E608 






ANI 


DFSKY 


72D2 


3EEA 






MVI 


A,STSFK 


72 D4 


CAC772 






JZ 


GK350 


72 D7 


3C 






INR 


A 


72D8 


C3C772 






J MP 


GK3SG 






r 
* 



DELETE CHARACTER A 


72DB 




6K380 


EQU 


$ 


72 DB 


3AFAFF 






LDA 


KJKP2 


72DE 


E608 






ANI 


ETWRP 


72E0 


78 






MOV 


A,B 


72E1 


C2C772 






JNZ 


6K350 


72 E4 


3ECF 






MVI 


A # DHWRP 


72E6 


C3C772 






JMP 


6K350 



;SET THE REPEAT RATE 
;RETURN KEY HIT 



;GET COMMON FLAGS 

;SOFT KEY DEFINE ACTIVE? 

;(SET CODE FOR SOFT KEYS) 
;NO - RETURN NORMAL CODE 
;YES - RETURN CODE TO RESTOR 

;NOR*AL DISPLAY 



;GET KEYBOARD JUMPERS 2 
;EDIT WRAP AROUND REVERSED? 

; (RECALL NORMAL CODE) 
;YES - RETURN NORMAL CODE 
;N0 - RETURN WRAP AROUND COD 



;***************************** 

; PROCESS INTERNAL FUNCTIONS * 
***************************** 



GK4Q0 



D680 

87 

5F 

212971 

19 

7E 

23 

66 

6F 

E9 



EQU 
SUI 
ADD 
MOV 
LXI 
DAD 
MOV 
I NX 
MOV 
MOV 
PCHL 



$ 

FBASE 

A 

E,A 

H^FCTAB 

D 

A,M 

H 

H,M 

L,A 



MEMORY LOCK 



CMLOK 



3AF4FF 

E6 04 

3EEC 

CA7C72 

3C 

C37C72 



EQU 

LDA 

ANI 

MVI 

JZ 

INR 

JMP 



$ 

HFLG1 

MMLOK 

A # MLKON 

GKYX1 

A 

GKYX1 



; COMPUTE FUNCTION INDEX 

;PUT INTO E <D = 0> 
;GET POINTER TO FUNCTION 
; ROUTINE 



;PERFORM FUNCTION 



;GET TERMINAL MODE FLAGS 
; MEMORY LOCK ON? 

;(SET TURN ON ESCAPE CODE> 
; NO - RETURN TURN ON CODE 
;YES - RETURN TURN OFF CODE 



DISPLAY FUNCTIONS 



C.DS.FN 



3AF4FF 
E601 
C21473 
3A12FF 



EQU 
LDA 
ANI 
JNZ 
LDA 



$ 

MFLG1 

DPFNC 

GK410 

KCTSH 



;6ET TERMINAL MODE FLAGS 1 
;DISPLAY FUNCTIONS ON? 
;YES - TURN OFF DISPLAY FUNC 
;N0 - GET CONTROL/SHIFT COLM 
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730F 
7311 

7314 
7314 
7316 



7319 
7319 
73 1C 
731E 
7320 
7323 
7326 
7328 
732B 
732D 
732D 
7330 
7331 
7333 



7336 
7336 
7338 



73 3B 
73 3B 
73 3D 



7340 
7340 
7342 



7345 
7345 

7347 
7347 
734A 
734B 
734C 
73 4D 
7350 



3ED9 
C37C72 



3E9A 
C37C72 



3&F4FF 

E602 

3ED2 

C27C72 

3AFAFF 

E608 

CA2D73 

3EFF 

2112FF 
AE 

3ED1 
C37C72 



3 EDO 
C 3477 3 



3E04 
C34773 



3E02 
C34773 



3E08 



21F3FF 

B6 

77 

AF 

320DFF 

C38271 



GK410 



MVI A,»P.F-ON 

JMP GKYX1 

EQU $ 

HVI A^DNCOF 

JMP GKYX1 
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;CSET CODE FOR DSP FNCT ON 
;HODE 



;RETURN DISPLAY FUNCTIONS 
;OFF CODE 



INSERT CHARACTER 



CICHR 



CC010 



EQU 

LDA 

AN I 

If VI 

JNZ 

LDA 

AN I 

JZ 

MVI 

EQU 

LXI 

XRA 

HVI 

JMP 



$ 

MFLG1 

ISCHR 

A,IHROF 

GKYX1 

KJHP2 

ETWRP 

CC0 10 

A # 377Q 

$ 

H^KCTSH 

M 

A # IKRON 

GKYX1 



;6ET TERMINAL RODE FLAGS 
;INSERT CHARACTER ON? 

;(SET OFF ESCAPE CODE) 
;YES - RETURN OFF CODE 
;N0 - GET KEYBOARD JUMPERS 2 
;REVERSE SENSE OF EDIT WRAP? 
;N0 - USE NORMAL SENSE 
;YES - INVERT SENSE OF CTL 

;GET CONTROL/SHIFT COLUMN 
;SET FOR PROPER SENSE 

;(SET TURN ON ESCAPE CODE) 



SET CAPS LOCK 



SCPLK 



EQU 
RVI 
JMP 



$ 

A,0 
GK450 



SET AUTO LINE FEED 



SAULF EQU $ 

MVI A^ATOLF 
JMP 6K450 

; SET BLOCK MODE 



SBLKM 



EQU 
MVI 
JMP GK450 



A^BKRDE 



SET REMOTE MODE 



SRMMD 



GK450 



EQU 
MVI 

EQU 
LXI 
ORA 
MOV 
XRA 
STA 
JMP 



$ 

A, R MOTE 



H # MFLG2 

M 

M,A 

A 

KKNSV 

GK010 



; NO CAPS LOCK 

;SET THE FLAG AND EXIT 



;SET FLAG BIT TO BE SET 
;SET THE FLAG AND EXIT 



;SET FLAG BIT TO BE SET 
;SET FLAG AND EXIT 



;SET FLAG BIT TO BE SET 



;SET THE FLAG 

;UPDATE THE FLAGS 

; CLEAR KEY NUMBER SAVE WORD 

;TRY FOR ANOTHER KEY 



************************ 



KBMON - MONITOR KEYBOARD 



FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 



8080 MACRO ASSEMBLER, VER 2.4 
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ENTRY: DON'T CARE 



EXIT : ALL REGISTERS DESTROYED 



7353 




KBMON 


EQU 


S 


7353 


21EC91 




LXI 


H^KTIMR 


7356 


7E 




MOV 


A,M 


7357 


3D 




DCR 


A 


7358 


FA5F73 




JM 


KM010 


7358 


CA5F73 




JZ 


KM010 


73 5E 


77 




NOV 


M # A 


73 5 F 




KM010 


EQU 


$ 


735F 


23 




INX 


H 


7360 


35 




DCR 


M 


7361 


3A0CFF 




LDA 


KLEDS 


7364 


F27173 




JP 


KM020 


7367 


47 




MOV 


B„A 


7368 


361E 




MVI 


M^BKDLY 


736A 


3A0EFF 




LDA 


BKFL6 


73 6D 


A8 




XRA 


B 


736E 


320CFF 




STA 


KLEDS 


7371 




KM 020 


EQU 


$ 


7371 


FB 




EI 




7372 


320083 


tr 


STA 


IKBLD 






; CHECK FOR NEW KEY 


7375 




KM0N1 


EQU 


$ 


7375 


F3 




DI 




7376 


2AEE91 




LHLD 


KYCOL 


7379 


EB 




XCBG 




73 7A 


2AF091 




LHLD 


KBFPT 


737D 


7E 




MOV 


A,M 


73 7E 


47 




MOV 


B,A 


737F 


322083 




STA 


IKBCL 


7382 


1A 




LDAX 


D 


7383 


A8 




XRA 


B 


7384 


C2AC73 




JNZ 


KM100 


7387 


2B 




DCX 


H 


7388 


1D 




DCR 


E 


7389 


F29073 




JP 


KM030 


738C 


1E0D 




MVI 


E,NMCOL 


738E 


2EFF 




MVI 


L,KBUFL+N 


7390 




KM030 


EQU 


S 


7390 


7E 




MOV 


A,M 


7391 


47 




MOV 


B # A 


73 92 


322083 




STA 


IKBCL 


7395 


1A 




LDAX 


D 


7396 


A8 




XRA 


B 


7397 


C2AC73 




JNZ 


KM100 


739A 


2B 




DCX 


H 


739B 


1D 




DCR 


E 


73 9C 


F2A373 




JP 


KM040 


739F 


1E0D 




MVI 


E,NMCOL 


73 A1 


2EFF 




MVI 


L # KBUFL+N 


73 A3 




KM040 


EQU 


$ 


73A3 


22F091 




SHLD 


KBFPT 


73A6 


EB 




XCHG 





; DECREMENT THE REPEAT 

;KEY TIMER 
;TIMER ACTIVE? 
;N0 - DON«T UPDATE TIMER 
;TIME OUT - DON'T UPDATE 
;YES - UPDATE TIMER 

RECREMENT BLINK TIMER 
;TIME TO BLINK LEDS? 

;(GET CURRENT LED STATE) 
;N0 - SET LED*S ONLY 
;SAVE CURRENT STATE IN B-REG 
;YES - RESET TIMER 
;G£T LED BLINK FLAG 
;SET NEW LED VALUES 
;STORE NEW VALUES 

; RE-ENABLE INTERRUPTS 
;SET KEYBOARD LED"S 



;DISABLE INTERRUPTS 
;GET CURRENT KEY COLUHNN 

;IN D,£ 
;GET STATE TABLE POINTER 
;GET PREVIOUS STATE 
;SAVE IT IN B-REGISTER 
;SET HYSTERESIS FOR DETECTOR 
;GET NEW STATE 
;ANY CHANGES? 
;YES - PROCESS NEW STATE 
;N0 - DECREMENT TO NEXT COL 
;ALL COLUMNS DONE? 
;N0 - CHECK NEXT COLUMN 
;YES - RESET COLUMN POINTERS 
MCOL 

;GET PREVIOUS STATE 

;SET HYSTERESIS 
;GET NEW STATE 
;ANY CHANGES? 
;YES - PROCESS NEW STATE 
;N0 - DECREMENT TO NEXT COL 
;ALL COLUMNS DONE? 
;N0 - EXIT 

;YES - RESET COLUMN POINTERS 
MCOL 

;SAVE COLUMN POINTERS 



C 



FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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73A7 


22EE91 






SHLD 


KYCOL 


73AA 


FB 






EI 




73 AB 


C9 


# 




RET 








r 
i 


KEYBOARD 


STATE CHA 


73AC 




KM100 


EQU 


$ 


73 AC 


22F091 






SHLD 


KBFPT 


73AF 


EB 






XCHG 




73B0 


22EE91 






SHLD 


KYCOL 


73B3 


4D 






MOV 


C,L 


73 B4 


2AC291 






LHLD 


KPTPT 


73B7 


71 






MOV 


M,C 


73 B8 


2B 






DCX 


K 


73B9 


A8 






XRA 


B 


73BA 


77 






MOV 


M,A 


73 BB 


47 






MOV 


B,A 


73BC 


3EC4 






MVI 


A,KYBFL 


73BE 


BD 






CMP 


L 


73BF 


C2C473 






JNZ 


KM1 1 


73 C2 


2EEC 






MVI 


L,KYBFL>K 


73 C4 




KM110 


EQU 


$ 


73C4 


2B 






DCX 


K 


73C5 


3AC091 






LDA 


KGTPT 


73C8 


BD 






CMP 


L 


73C9 


CAD173 






JZ 


KM120 


73CC 


22C291 






SHLD 


KPTPT 


73CF 


EB 






XCH6 




73D0 


70 






MOV 


M,B 


73D1 




KM120 


EQU 


$ 


73D1 


FB 






EI 




73D2 


C9 






RET 
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; RE-ENABLE INTERRUPTS 
;RETURN 



73D3 




GKYNM 


EQU 


$ 


7303 


7B 






MOV 


A,E 


73 D4 


07 






RLC 




73D5 


07 






RLC 




73D6 


07 






RLC 




73 D7 


5F 






MOV 


E,A 


73 D8 


1D 






DCR 


E 


73D9 


78 






MOV 


A,B 






i 


ADD 


IN BIT NUM 


73DA 




GN010 


EQU 


$ 


73DA 


1C 






INR 


E 


73DB 


OF 






RRC 




73DC 


D2DA73 






JNC 


GN010 



;SAVE COLUMN POINTERS 



;PUT COLUMN NUMBER IN C 

;GET PUT POINTER 

;STORE COLUMN NUMBER 

;DECREMENT TO NEXT POSITION 

; RESTORE NEW STATE 

;STORE NEW STATE IN BUFFER 

;SAVE CHANGED BITS IN B-RE6 

;REACKED END OF BUFFER? 
;N0 - CHECK FOR BUFFER FULL 
YBLN ;YES - RESET POINTER 

; DECREMENT TO NEXT POSITION 

;BUFFER FULL? 

;YES - DON'T UPDATE POINTERS 

;N0 - UPDATE POINTERS 

; UPDATE STATE TABLE 

;RE-ENABLE INTERRUPTS 
;RETURN 



************************ 

GTKYNM - GET KEY NUMBER 

ENTRY: B = KEY BIT IN COLUMN 
E = COLUMN NUMBER 

EXIT : A * E = KEY NUMBER 
L - KBKNSV-KBSTOR 



; MULTIPLY COLUMN NUMBER 
;BV 8 



;PUT PRODUCT INTO E 
;ADJUST TO INITIAL VALUE 
;PUT KEY BIT IN A 



; INCREMENT COUNT 

;BIT FOUND? 

;N0 - CONTINUE COUNTING 



FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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73E4 
73 E4 
73 E7 



73 E9 
73EB 
73EC 
73EE 
73F1 
73F3 
73F6 
73 F8 
73F9 
73 FB 

73 FE 
7400 
7403 
7405 
7408 
740A 
740D 

74 OF 
7412 



7413 
7413 
7415 
7415 
7416 



7417 
7417 
7419 
741A 



21EC91 
065B 



FE8A 

F8 

FE8C 

FA1574 

FE95 

CAI574 

FECI 

F8 

FEC5 

FA1374 

FEDO 

CA1574 

FED3 

CA1574 

FED4 

CA1574 

FEF4 

CA1574 

C9 



0633 

70 
C9 



FEOB 

DO 

E5 



ERRORS * PAGE 20 



;YES - PUT RESULT IN A 
;SET H # L TO REPEATING KEY 
;RETURN 



; SETRPT - SET REPEAT TIMER FOR FUNCTION KEYS * 
; ENTRY: A = KEYBOARD CHARACTER 



73 DF 


7B 


MOV 


A,E 


73E0 


210DFF 


LXI 


H^KKNSV 


73E3 


C9 


RET 





EXIT 



K8TIMR - DELAY FOR REPEAT 
B,H,L DESTROYED 



STRPT 



EQU 
LXI 
MVI 



H,KTIMR 
B # L6DLY 



KEYBOARD REPEAT 



SR010 
SR020 



CPI 

RM 

CPI 

JM 

CPI 

JZ 

CPI 

RM 

CPI 

JM 

CPI 

JZ 

CPI 

JZ 

CPI 

JZ 

CPI 

JZ 

RET 



EQU 
MVI 
EQU 
MOV 
RET 



212ft 

2t4Q 

SR020 

225tt 

SR020 

301G 

305Q 

SR01Q 

320Q 

SR020 

323Q 

SR020 

3246 

SR020 

364Q 

SR020 



$ 

B^STDLY 

$ 
M,B 



;SET H r L TO REPEAT TIMER 
;SET B FOR LONG DELAY TIME 



;W0RTSPRUNG 

•WORTS PR./ 

;YES 

;CR/LF 

;POS. BLINKER 
;N0 

;YES 
;LOESCHE X 

•ROLL UP 

;ROLL DOWN 
;YES 



;RETURN WITH NO REPEAT 



;YES - SET FOR 
; START DELAY 



SHORT REPEAT 



;SET REPEAT TIMER 
; RETURN 



; KBCTL ■- PERFORM KEYBOARD CONTROL FUNCTION * 

^ ********************************* ************* 



EXIT 



* 

r 



t 
# 
i 

m 

KBCTL 



ENTRY: A = CONTROL CODE 

BY INDIVIDUAL CONTROL 



DETERMINED 
ROUTINES 

GENERALLY D-L 
AND A-C 



REGISTERS ARE SAVED 
DESTROYED 



EQU 
CPI 

RNC 
PUSH 



KCTLK+1 ; CONTROL CODE WITHIN RAN6E? 

;N0 - EXIT IMMEDIATELY 
H ;YES - SAVE THE WORKING 



FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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74 1B 
74 U 
74 1D 
741 E 
7420 
7423 
7424 
74 25 
7426 
74 27 
7428 
74 29 



74 2A 
74 2A 
74 2C 
74 2E 
7430 
74 32 
7434 
74 36 
7438 
74 3A 
743C 



0005 
OOOA 



74 3E 
743E 
743F 
7442 
7445 
7447 
74 49 

744C 
74 4C 
7440 



744E 
74 4 E 
7450 
7453 
74 54 



D5 

87 

5F 

1600 

212874 

19 

5E 

23 

66 

6B 

D1 

E9 



PUSH 

ADD 

MOV 

MVI 

LXI 

DAD 

MOV 

I NX 

MOV 

MOV 

POP 

PCHL 



D 

A 

E,A 

D,0 

H,KCTAB-2 

D 

E,R 

H 

H,M 

L,E 

D 



ERRORS = PAGE 21 



;REGISTERS 
; DOUBLE THE PARAMETER VALUE 
;COMPUTE CONTROL VECTOR 

;L0CATI0N 



; FETCH THE CONTROL VECTOR 



;RECALL D AND E 

;G0 TO CONTROL ROUTINE 



t 



CONTROL VECTORS 



KCTAB 



3E74 
4E74 
7074 
5774 
7974 
A074 
AF74 
F074 
2375 
2975 



EQU 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 



$ 

LKKBD 
ULKBD 
RTKEY 
SBLMD 
SRTST 
EDTST 
RETKB 
CIOKY 
SPRPT 
CBRKY 



;******************** 

; UNSUPPORTED CONTROL 
• ******************** 

; DFAD SWCHAR 

; DFAD SETFRN 

; DFAD STCHST 

; DFAD FRNMD1 

; DFAD FRNMD2 



;1 
;2 
;3 
;4 
;5 
;6 
;7 
;8 
;9 

;10 - CHECK 
** * * *■** ***** 

FUNCTIONS * 

************ 



LOCK KEYBOARD 
UNLOCK KEYBOARD 
REPEAT LAST KEY HIT 
SET PERMANENT BLOCK MOD 
SELF-TEST START 
SELF-TEST END 
RESET KEYBOARD 
CHECK FOR I/O KEY 
STOP KEY REPEAT 

FOR BREAK KEY 



2TRTS 
KCTLM 



EQU 
EQU 



5 

10 



11 - SWITCH CHARACTER SET 

12 - UPDATE FOREIGN MODE 

13 - SET FOREIGN MODE OUTPUT 

14 - SET FOREIGN MODE 1 

15 - SET FOREIGN MODE 2 

;SELF-TEST START CONTROL 
;KEYBOARD CONTROL LIMIT 



LOKKBD - LOCK THE KEYBOARD 



LKKBD 



AF 

32EC91 

3A11FF 

E6F7 

F601 

3211FF 



E1 
C9 



KCTX1 



EQU 
XRA 
STA 
LDA 
AN I 
OR I 
STA 

EQU 
POP 
RET 



$ 

A 

KTIMR 

KFLGS 

377Q-RPTKY 

KLGCK 

KFLGS 

$ 

H 



; CLEAR THE REPEAT TIMER 



; CLEAR REPEAT KEY FLAG 
;AND SET LOCKED FLAG 



^RESTORE H AND L 

;RETURN 



UNLKBD - UNLOCK KEYBOARD 



ULKBD 



3EFE 
2111FF 
A6 
77 



EQU 
MVI 
LXI 

ANA 
MOV 



A,3?7Q-KL0CK ;CLFAR KEYBOARD 
H,KFLGS ; CLEAR KEYBOARD FLAG 

M 
M,A 



FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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7455 


E1 






POP 


H 


; RESTORE H AND L 


7456 


C9 






RET 




{RETURN 






r 


STBLKD - 


SET PERMANENT BLOCK MODE 


7457 




SBLMD 


EQU 


$ 




74 57 


2111FF 






LXI 


H # KFLGS 


{SET PERMANENT BLOCK MODE 


745A 


7E 






MOV 


A*M 


;FLAG 


745B 


F602 






OR I 


PRMBM 




745D 


77 






NOV 


M,A 




74 5 E 


21F3FF 






LXI 


H # MFLG2 


;SET BLOCK MODE FLAG 


7461 


7E 






MOV 


A^M 




7462 


F602 






ORI 


BKMDE 




7464 


77 






MOV 


M,A 




7465 


3EC0 






RVI 


A # HDSHK+B2SND 


7467 


3210FF 






STA 


KJ1MS 


;SET JUMPER INHIBIT MASK 


746A 


2EFB 






MVI 


L,KJMPR- 


CSTOR 


746C 


B6 






ORA 


M 


;SET JUMPERS TO INHIBIT 


746D 


77 






MOV 


M # A 


;ALL TOP LEVEL HANDSHAKE 


746E 


E1 






POP 


H 


;RESTORE H AND L 


746F 


C9 


r 




RET 




;RETURN 






r 
# 


RPTKEt - 


REPEAT LAST KEY HIT 


7470 




RTKEY 


EQU 


$ 




7470 


3E08 






MVI 


A^RPTKY 


;SET REPEAT KEY FLAG 


7472 


2111FF 






LXI 


H^KFLGS 


;SET KEYBOARD FLAG 


74 75 


B6 






ORA 


M 




74 76 


77 






MOV 


M # A 




7477 


E1 






POP 


H 


{RESTORE H AND L 


7478 


C9 






RET 




; RETURN 






;**********************.***** 









STRTST - 


SELF -TEST 


START * 






**************************** 


7479 




SRTST 


EQU 


$ 


i 


7479 


210CFF 






LXI 


H^KLEDS 


{GET CURRENT LED'S STATE 


747C 


7E 






MOV 


A^M 




74 7D 


FE7F 






CPI 


377Q-BLLED ;ALL LIGHTS ON ALREADY? 


747F 


CA4C74 






JZ 


KCTX1 


;VES - DON'T CHANGE LED*S 


7482 


320BFF 






STA 


LDSAV 


;N0 - SAVE CURRENT LED ST 


7485 


3E7F 






MVI 


A / ,377Q-BLLED 


7487 


77 






MOV 


M,A 


{FORCE ALL LED»S ON 


74 88 


320083 






STA 


IKBLD 




748B 


2EF8 






MVI 


L^CFLGS- 


CSTOR 


7480 


7E 






MOV 


A,N 


{TURN FORCE FULL RESET 


74 8E 


F604 






ORI 


FCRST 


{FLAG 


7490 


77 






MOV 


M,A 




7491 


E1 






POP 


H 


{RESTORE K AND L 


7492 




SRTS1 


EQU 


$ 


{ENABLE RESET KEY 


7492 


3E02 






MVI 


A,RSTON 




7494 


328083 






STA 


IKBCO 




74 97 


C9 






RET 




{RETURN 



7498 
7498 
749B 



210CFF 
7E 



************************* 

EST * 

***** 

EQU $ {CHECK FOR SOFT RESET IN 

LXI H,KLEDS {PROGRESS 

MOV A,K ;GET CURRENT LED SETTINGS 



; ENDTST - END SELF-T 
;******************** 
EDTSO 
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CPI 

RNZ 

PUSH 

EQU 

LXI 

MOV 

ANI 

MOV 

LOA 

STA 



749C 


FE7F 


749E 


CO 


749F 


E5 


74A0 




74A0 


21F8FF 


7 4 A3 


7E 


74 A4 


E6FB 


74 A6 


77 


74 A7 


3A>0SFF 


74AA 


320CFF 



74 AD 
74 AE 



EOTST 
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377Q-BLLED ;SOFT RESET IN PROGRESS? 

;N0 - RETURN 
H ;YES - RESET LED»S 

$ 

H^CFLGS 
A,M 

377Q-FCRST 
M,A 
LDSAV 
KLEOS 



;TURN OFF 
;FLAG 



FORCE FULL RESET 



E1 
C9 



POP 
RET 



^RESTORE LED STATE 

;***********•************** 

* **KB«ON M WILL RESTORE * 

* KEYBOARD LED'S WHEN * 

* TIMER INTERRUTS OCCURS * 
************************** 

;RESTORE H AND L 
; RETURN 



;***************************************** 

; RSETKB - RESET KEYBOARD FOR SOFT RESET * 

-***************************************** 



74AF 




RETKB 


EQU 


$ 


74AF 


CD4F71 




CALL 


IITKO 


74B2 


21F291 




LXI 


H,KBBUF 


74B5 


1112FF 




LXI 


D„KBUF2 


74B8 


OEOE 




NVI 


C,NMC0L+1 


74BA 




RK010 


EQU 


$ 


74BA 


7E 




MOV 


A,M 


74 BB 


12 




STAX 


D 


74BC 


23 




INX 


H 


74 BD 


13 




INX 


D 


74BE 


OD 




DCR 


C 


74BF 


C2BA74 




JN2 


RK010 



;INITIALIZE BUFFER POINTERS 
;TRANSFER VALUES FROM ~REAL 
;TIME" STATE TABLE TO 
;CURRENTLY ACTIVE TABLE 



;ALL ENTRIES DONE? 

;N0 - CONTINUE TRANSFER 



CLEAR KEYBOARD FLAGS 



74 C2 


2111FF 


74C5 


7E 


74 C6 


E6F6 


74 C8 


77 


74C9 


2E0C 


74CB 


7E 


74 CC 


E69E 


74CE 


77 


74CF 


2E0E 


74D1 


7E 


74 D2 


E69E 


74 D4 


77 


74 D5 


21F4FF 


74D8 


7E 


74 D9 


E69E 


74DB 


77 


74 DC 


AF 


74 DD 


32F6FF 


74E0 


32EC91 


74E3 


21F8FF 


74 E6 


7E 


74E7 


E6EF 


74 E9 


77 


74 EA 


CD9575 



LXI 
MOV 
ANI 
MOV 
MVI 
MOV 
ANI 
MOV 
MVI 
MOV 
ANI 
MOV 
LXI 
MOV 
ANI 
MOV 
XRA 
STA 
STA 
LXI 
MOV 
ANI 
MOV 
CALL 



H,KFL6S 

A,M 

377Q-KL0CK-RPTKY 

M,A 

L,KLEDS-KSSTR 



;YES - UNLOCK THE KEYBOARD 



A,M 



;TURN OFF RECORD, SELECT AND 



377Q-RCLED-SLLED-DFLED 

M,A ;FUNCTIONS LED # S 

L,BKFL6-KSSTR 

A,M ;STOP RECORD, SELECT AND 

377Q-RCLED-SLLED-DFLED 

M,A JUNCTIONS BLINKING 

H # MFLG1 

A # » ;TURN OFF RECORD, SELECT AND 

377Q-RC0RD-SLECT-DPFNC ;DISPLAY 

M,A 

A 

ITFLS ;CLEAR INTERRUPT 

KTIMR ;STOP KEY REPEAT 

;CLEAR THE REMOTE SET FLAG 
;T0 FORCE DATA COMM RESET 



;FUNCTIONS MODE FLAGS 

FLAG 



H,CFLGS 

A,M 

377Q-RMSET 

M,A 

BELL 



; SOUND THE BELL 
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FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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FILE 20 
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FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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74ED C37974 



JMP SRTST 



ERRORS * PAGE 24 



;TURN ON ALL LED*S AND EXIT 



; ******* ********** ******************* ********* 

; CKIOKY - CHECK FOR I/O CONTROL (GREEN) KEY * 
********************************************** 



EXIT : Z - I/O CONTROL KEY NOT PRESSED 
NZ - I/O CONTROL KEY PRESSED 
A-E DESTROYED 



74 FO 




CIOKY 


EQU 


$ 




74F0 


3A0FFF 




LDA 


KCHAR 


;GET CURRENT KEYBOARD CHAR 


74F3 


67 




MOV 


H,A 


;SAVE CHARACTER IN H-REGISTE 
(CHARACTER RESTORED IN H 
ON RETURN FROM "CKBRK1*> 


74 F4 


CD3475 




CALL 


CBRK1 


; CLEAR KEYBOARD BUFFER 


74F7 


3A1BFF 




LDA 


IKYRW 


;N0 - GET I/O CNTRL KEY ROW 


74 FA 


E601 




AN I 


IKVCL 


;I/0 CONTROL KEY DOWN? 


74 FC 


CA4C74 




JZ 


KCTX1 


;N0 - EXIT 


74 FF 


3E5B 




KVI 


A # LGDLY 


;YES - RESTORE REPEAT TIMER 


7501 


32EC91 




STA 


KTIMR 




7504 


7C 




MOV 


A,H 


;RESTORE ORIGINAL KEYBOARD 


7505 


210FFF 




LXI 


H^KCHAR 


;CHARACTER 


7508 


77 




MOV 


M,A 




7509 


FEFA 




CPI 


TEST 


; CURRENT KEY * TEST? 


75 OB 


3A1BFF 




LDA 


IKYRW 


;(SET FOR ALTERNATE SELF- 


750E 


119802 




LXI 


D,ETCOL« 


256+ETRCD ;TEST CHECK) 


7511 


CA1A75 




il 


CI010 


;YES - CHECK FOR ENTER KEY 


7514 


3A17FF 




LDA 


TTROW 


;N0 - CHECK FOR TEST KEY 


7517 


11FA01 




LXI 


D,TTCOL*256+TEST 






; CHECK FOR ALTERNATING SELF-TEST 


751A 




CI010 


EQU 


$ 




75 1A 


2F 




CMA 




;INVERT KEYBOARD ROW SETTING 


75 1B 


A2 




ANA 


D 


;0THER SELF-TEST KEY DOWN? 


751C 


C24C74 




JNZ 


KCTX1 


;N0 - EXIT 


751F 


73 




NOV 


M,E 


;YES - SET ALTERNATE TEST KE 


7520 


B3 




ORA 


E 


;SET Z FALSE 


7521 


E1 




POP 


H 


;RESTORE H AND L 


75 22 


C9 




RET 




;RETURN Z FALSE 



**************************** 

; STPRPT - STOP KEY REPEAT * 
**************************** 



7523 




SPRPT 


EQU 


$ 




7523 


AF 




XRA 


A 


;ZERO REPEAT 


7524 


32EC91 




STA 


KTIMR 




7527 


E1 




POP 


H 


;RESTORE H A 


75 28 


C9 




RET 




/RETURN 



TIMER 



;*************************** 

; CHECK FOR BREAK KEY DOWN * 
*************************** 



EXIT : Z - BREAK KEY NOT DOWN 
NZ - BREAK KEY DOWN 



75 29 
75 29 

75 2A 



CBRKY 



E1 
AF 



EQU $ 
POP H 
XRA A 



;POP OFF H AND L 
;CHECK HARDWARE LATCHES 



FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 
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FILE 

FILE 

FILE 
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FILE 
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FILE 
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FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 
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FILE 

FILE 
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FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 
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FILE 
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FILE 

FILE 
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FILE 

FILE 

FILE 



20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 
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20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 
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752B 
75 2E 
7531 
7533 
7534 
7534 
7534 
7537 
75 38 
753B 
753B 
753C 



753D 
753D 
75 3E 
753F 
7542 
7543 
7544 
7547 
7548 
7549 
754A 
75 4B 
754C 
75 4D 
7550 
7551 
75 54 
7555 
7556 

7559 
75 59 
75 5A 
755A 
755B 
75 5C 
755F 
7560 
7561 
7562 
7563 



322083 
3A0D83 
E601 
C8 



CD6971 

3C 

C23475 



3C 
C9 



CBRK1 
CB010 



NEXIT 



* 

r 
» 

i 
i 
i 
i 
i 



STA 

LDA 

ANI 

RZ 

EQU 

EQU 

CALL 

INR 

JNZ 

EQU 

INR 

RET 



1KBCL 

IOKB+BKYRN 

BKCOL 

$ 
% 

GTKEY 
A 

CB010 

$ 

A 
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;FOR BREAK KEY DOWN 

;BREAK KEY DOWN? 
;N0 - RETURN FAIL 
;YES - CLEAR KEYBOARD BUFFE 



;ANV KEY HIT? 

; (ADJUST FOR LOCKED 
;VES - CONTINUE UNTIL 

; NON-ZERO EXIT 
;N0 - FORCE Z-FALSE 
;RETURN NZ 



KEYBD) 
NONE 



* * * * * * * ***************** 
SETMD1 - SET MODE 1 FLAGS 

ENTRY: A = FLAG BIT TO BE SET 

B = 377B, BLINK ASSOCIATED LED 
= 0, DON"T BUNK LED 

EXIT : A,C DESTROYED 

ASSOCIATED LED # IF ANY, IS SET ON 



STMD' 



E5 

4F 

21F4FF 

B6 

77 

CD7F7 5 

4F 

F3 

B6 

77 

FB 

79 

210EFF 

04 

CA5975 

2F 

A6 

C35A75 



B6 

77 

F3 

CD9874 

B6 

77 

FB 

E1 

C9 



S10K 



S1020 



EQU 

PUSH 

MOV 

LXI 

ORA 

MOV 

CALL 

MOV 

DI 

ORA 

MOV 

EI 

MOV 

LXI 

INR 

JZ 

CMA 

ANA 

JMP 

EQU 

ORA 

EQU 

MOV 

DI 

CALL 

ORA 

MOV 

EI 

POP 

RET 



S 

H 

C # A 

H # MFLG1 

M 

M,A 

FDLED 

C # A 

M 

«,A 

A,C 

H^BKFLG 
B 
S1010 

M 
S1020 

$ 
M 
$ 
M,A 

EDTSO 

M 
M # A 

H 



;SAVE H # L 

;SAVE BIT TO BE SET 



SET THE FLAG 

STORE UPDATED FLAGS 

LOCATE ASSOCIATED LED 

SAVE LED BIT 

DISABLE INTERRUPTS 

ADD BIT TO LED CONTROL WORD 

STORE NEW CONTROL WORD 

RE-ENABLE IIITERRUPTS 

RECALL LED BIT 

SET H # L TO BLINK FLAG 

SET LED BLINKING? 

YES - SET BLINK BIT 

NO - SET A TO CLEAR MASK 

CLEAR BLINK FLAG 

GO UPDATE BLINK FLAG 



;SET BLINK BIT 



;DISABLE INTERRUPTS 

;CHECK SOFT RESET IN PROGRES 

;TURN ALL BLINKING LED"S ON 

; RE-ENABLE INTERRUPTS 
;RESTORE H^L 
;RETURN 



*********************** 
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FILE 20 
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7564 


CRMD1 EQU 


$ 


7564 


E5 


PUSH 


H 


7565 


4F 


MOV 


C,A 


7566 


21F4FF 


LXI 


H,MFL61 


7569 


2F 


CKA 




75 6A 


A6 


ANA 


M 


756B 


77 


MOV 


M,A 


75 6C 


CD7F75 


CALL 


FOLED 


756F 


2F 


CKA 




75 70 


4F 


MOV 


C # A 


75 71 


210EFF 


LXI 


H^BKFLG 


7574 


A6 


ANA 


M 


7575 


77 


MOV 


M,A 


7576 


F3 


DI 




7577 


CD9874 


CALL 


EDTSO 


75 7A 


A1 


ANA 


C 


75 7B 


77 


MOV 


M,A 


757C 


FB 


EX 




7570 


E1 


POP 


H 


75 7E 


C9 


RET 





CLRKD1 - CLEAR MODE 1 FLAG 

ENTRY: A * FLAG BIT TO BE CLEARED 

EXIT I A,C DESTROYED 

ASSOCIATED LED, IF ANY, IS SET OFF 

INTERRUPT SYSTEM IS DISABLED AND ENABLED 
AGAIN 



•SAVE H L 

;SAVE BIT TO BE CLEARED 



COMPLEMENT TO GET CLEAR MAS 
;CLEAR THE BIT 

^LOCATE ASSOCIATED LED 
^COMPLEMENT TO GET CLEAR MAS 
;SAVE CLEAR PATTERN 
;CLEAR BLINK FLAG IN CASE 
;LED WAS BLINKING 

;DISABLE INTERRUPTS 

;CHECK SOFT RESET IN PROGRES 

;CLEAR LED BIT 

;ENABLE INTERRUPTS 
; RESTORE H,L 
;RETURN 



************************ 

FNDLED - FIND LED BIT ASSOCIATED WITH 
MODE 1 FLAGS 

ENTRY s C = MODE 1 FLAG BIT TO BE USED 

EXIT : A = ASSOCIATED LED BIT 

H,L = KBLEDS 



757F 




FDLED 


EQU 


$ 


75 7F 


79 






MOV 


A,C 


75 80 


218C75 






LXI 


H„LDTAB-1 


7583 




FDQ10 


EQU 


$ 


75 83 


23 






I NX 


H 


75 84 


OF 






RRC 




75 85 


D28375 






JNC 


FD010 


7588 


7E 






MOV 


A,M 


7589 


210CFF 






LXI 


H^KLEDS 


75 8C 


C9 






RET 








r 
i 


LED 


ASSOCIATION TA 


758D 




L.DTAB 


EQU 


$ 


75 8D 


01 






DB 


DFLED 


75 8E 


02 






DB 


IHLED 



;PUT BIT INTO A 

;SET INITIAL TABLE ADDRESS 



;ADVANCE TO NEXT TABLE ENTRY 

;BIT FOUND? 

;N0 - 60 TO NEXT ENTRY 

;YES - GET TABLE ENTRY 

;SET H,L TO LED CONTROL WORD 

;RETURN 



;BIT FUNCTION 

;0 - DISPLAY FUNCTIONS 

;1 - INSERT CHARACTER 
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8080 MACRO ASSEMBLER- VER 2.4 



ERRORS - PAGE 27 



758F 


04 


7590 


00 


7591 


10 


7592 


20 


75 93 


40 


7594 


00 



7595 
7595 
7598 
75 9A 
75 9D 



75 9E 
759E 
75 AO 
75 A3 
75 A4 
75 A5 
75 A6 



75 A7 
75 A7 
75 AA 
75 AB 
75 AD 
75 AE 
75 BO 
75B1 



75B2 
75 B2 
75 B5 
75B8 
75BB 
75 BE 



75C1 



z * 



DB MKLED 

DB 

DB ETLED 

DB SLLED 

DB RCLED 

DB 



******* 



;2 


- MEMORY LOCK 


;3 


- FORMAT MODE 


;* 


- EDIT MODE 


;5 


- SELECT MODE 


;6 


- RECORD MODE 


;7 


- UNUSED 



*************** 



t 

» 
i 
t 
t 
t 
r 
* 

BE 



BELL - SOUND THE KEYBOARD BELL 



ENTRY: 



EXIT 



DON'T CARE 

A DESTROYED 
Z FALSE 



LL 



3A0CFF 
F680 
320083 
C9 



EQU 
LDA 
ORI 
STA 
RET 



$ 

KLEDS 
BLLED 
IKBLD 



;6ET CURRENT LED SETTINGS 
;ADD CONTROL TO SOUND BELL 
;SOUND THE BELL 
;RETURN 
t ******************* ************ 

SETXMT - TURN ON TRANSMIT LED * 
r ********************* ********** 

EXIT : Z * TRUE 



3E08 

210CFF 

B6 

77 

BF 

C9 



STXMT EQU 
MVI 
LXI 
ORA 
MOV 
CMP 
RET 

;********* 

; CLRXMT - 

;********* 



A-XTLED 



H^KLEDS 

M 

M r A 

A 



CRXMT 



210CFF 

7E 

FE7F 

C8 

E6F7 

77 

C9 



EQU 

LXI 

MOV 

CPI 

RZ 

ANI 

MOV 

RET 



;SET TRANSMIT LED BIT 
;SET H*L TO LED STATE WORD 
;ADD TRANSMIT LED BIT 
/UPDATE LED STATE 
;SET Z TRUE 
; RETURN 
************************ 

TURN OFF TRANSMIT LED * 
************************ 

S 

H, KLEDS 

A,M ;GET CURRENT LED SETTINGS 

377Q-BLLED ;SET FOR TEST MODE? 

;YES - RETURN 
377Q-XTLED ;N0 - CLEAR TRANSMIT 
M,A ;LED 

;RETURN 



2AFAFF 
22DAFF 
3AF9FF 
32D9FF 
21FB75 



********* 

STJMPR - 
********* 

SJMPR EQU 
LHL 
SHL 
LDA 
STA 
LXI 

;********* 

; SET RANG 
;********* 

SJMP1 EQU 



t*********** 

SET KEYBOA 
i*********** 

$ 

D K4MP2 

D PARM2 
KJMP3 
PARM3 
H,SJTAB 

r *********** 

iE TABLE AND 

r*********** 

$ 



*************************** 

RD JUMPER ESCAPE SEQUENCE * 
*************************** 

; INITIALIZE PARAMETER VALUES 



;SET ESC SEQ RANGE TABLE ADD 
************************** 

CLEAR INPUT ACCUMULATOR * 
************************** 



FILE 


20 
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20 
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20 
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20 


FI LE 


20 
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75C1 


3E0A 




MVI 


A # DCRDX 


75C3 


32D4FF 




STA 


RADIX 


75C6 


22D2FF 




SHLD 


RNGTA 


75C9 




SJMP2 


EQU 


$ 


75 C9 


210000 




LXI 


H,0 


75CC 


22DEFF 




SMLD 


IDATA 


75CF 




SJMP3 


EQU 


$ 


75CF 


3E02 




MVI 


A, 2 


75D1 


32D1FF 




STA 


ECFLG 


75 D4 


C9 




RET 





ERRORS - PAGE 28 

;SET 'INPUT RADIX AS DECIMAL 

;SET tfEW RANGE TABLE VALUE 

;CLEAR INPUT ACCUMULATOR 

^CONTINUE ESCAPE SEQUENCE 
;SET ESC SEQ FLAG TO INDICAT 

;ESC SEQ IN PROGRESS 
;RETURN TO WAIT LOOP 



; PARAMETER RECEIVED - SET ITS VALUE * 
-* *********************** ************* 







t 
i 


ENTRYr 


B = 1 








t 






C * INPUT 


CHARACTER 






* 






H * BASEH 




75D5 




SJ100 


EQU 


$ 


; ENTRY FOR INPUTS P-Z 


75 D5 


05 






DCR 


B 


;SET ADJUSTMENT FACTOR 


75D6 




SJ110 


EQU 


$ 


; ENTRY FOR INPUTS J-N 


75 D6 


05 






DCR 


B 


;SET ADJUSTMENT FACTOR 


75 D7 




SJ120 


EQU 


$ 


; ENTRY FOR INPUTS A-H 


75 D? 


79 






MOV 


A # C 


;PUT INPUT CHAR IN A-REG 


75 D8 


E6DF 






ANI 


377Q-40Q 


;FORCE TO UPPER CASE VALUE 


75DA 


D642 






SUI 


ASCA+1 


;SET TO RANGE 0-23 


75 DC 


80 


r 




ADD 


B 


;ADD IN ADJUSTMENT FOR 
MISSING LETTERS (I, 0> 


75DD 


CD6876 






CALL 


SPARM 


;SET THE PARAMETER 


75E0 


79 






MOV 


A„C 


;RECALL INPUT CHARACTER 


75 E1 


E620 






ANI 


40Q 


;IS IT UPPER CASE? 


75E3 


C2C975 


i 




JNZ 


SJMP2 


;N0 - CLEAR INPUT ACCUMULATO 
AND CONTINUE ESCAPE SEQ 


75 E6 


11DBFF 


r 




LXI 


D,PARM1 


;N0 - SET KEYBOARD STRAPS 


75 E9 


21FBFF 






LXI 


HJUMPR 


;<D,E*SOURCE; H # L=DEST> 


75EC 


3A10FF 






LDA 


KJ1MS 


;GET INHIBIT MASK 


75 EF 


CD5E76 






CALL 


SBITS 


;SET JUMPER 1 VALUES 


75F2 


3A0678 


r 




LDA 


DJMS2 


;GET JUMPER 2 INHIBIT MASK 


75 F5 


CD5E76 






CALL 


SFJITS 


;SET JUMPER 2 VALUES 


75 F8 


3A0578 


i 




LDA 


DJMSK 


;GET JUMPER 3 INHIBIT MASK 


75 FB 


C35E76 






J HP 


SBITS 


;SET JUMPER 3 VALUES AND EX I 






i 

Z**** ************************************* 






i 


SET 


JUMPER ESCAPE . 


SEQUENCE RANGE TABLE * 



75FB 




75 FE 


4148 


7600 


D7F5 


7602 


4A4E 


7604 


D6F5 


7606 


505A 


7608 


D5F5 



;***** **************************** ******** 

SJTAB EQU $-3 

DB 101Q # 1t0Q 
DW SJ12Q+B15 



;UPPER CASE <A> * <H> 
;SET APPROPRIATE PARAMETER 



760A 6168 



DB 112Q,116Q ;UPPER CASE <J> - <N> 

DW SJ110+B15 ;SET APPROPRIATE PARAMETER 

DB 1 20 Q, 1326 ;UPPER CASE <P> - <Z> 

DW SJ100+B15 ;SET APPROPRIATE PARAMETER 

DB 1418,1500 ;LOWER CASE <A> - <H> 
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760C D7F5 



760E 
7610 

7612 
7614 



7632 
7632 
7635 
7638 
76 3B 



76 3E 
763E 
7640 



6A6E 
D6F5 

707A 
D5F5 



7613 
7616 
7618 


2020 
CFF5 


76 1A 
761C 


3031 
4680 


761E 
7620 


4143 
43F6 


7622 
7624 


5252 
3EF6 


7626 
7628 


6163 
43F6 


762A 
762C 


7272 
3EF6 


762E 
7630 


007F 
4F80 



3AF3FF 
32DBFF 
211376 
C3C175 



3E03 
C34976 



DW 

DB 
DW 

DB 
DW 
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SJ120+B15 ;SET APPROPRIATE PARAMETER 

152Q,156Q ;LOWER CASE <J> - <N> 
SJ110+B15 ;SET APPROPRIATE PARAMETER 



160Q,172Q 
SJ100+B15 



;LOWER CASE <P> - 
;SET APPROPRIATE 



<Z> 

PARAMETER 



;************************************************* 

; STKTAB - SET LATCHING KEYS ESC SEQ RANGE TABLE * 

;*******************•****************•************* 

SKTAB 



EQU 

OB 

DW 

DB 
DW 

DB 
DW 

DB 
DW 

DB 
DW 

DB 
DW 

DB 
DW 



$-3 

40Q,40Q ;SPACE 

SJMP3+B15 ; IGNORE 

606,61 Q ; NUMBERS <0> AND <1> 

ZCNUJI+B15 ACCUMULATE INPUT VALUE 

1018,1030 ;UPPER CASE <A> - <C> 

SK020+B15 ;SET APPROPRIATE PARAMETER 

122Q # 122Q ;UPPER CASE <R> 

SK01O+B15 ;SET REMOTE FLAG 

1416U143Q ;LOWER CASE <A> - <C> 

SK020+B15 ;SET APPROPRIATE PARAMETER 

162Q,162Q ;LOWER CASE <R> 

SK010+B15 ;SET REMOTE FLAG 

QQ,177Q ;ALL OTHER CODES 

ZSCND+B15 jABORT ESCAPE SEQUENCE 



• ************************************* ******** 



STLKVS 



SET LATCHING KEYS ESCAPE SEQUENCE * 



;********************************************* 



SLKYS 



EQU 
LDA 
STA 
LXI 
JMP 



$ 

MFLG2 
PARMt 
H, SKTAB 
SJMP1 



;INITIALIZE PARAMETER VALUE 

;PUT RANGE TABLE ADDR IN H,L 
;EXIT TO WAIT LOOP 



;***** ********* ****** ************* ******* 
; REMOTE FLAG PARAMETER - SET BIT VALUE * 
;**************************************** 

SK010 EQU $ 

MVI A^RMBIT ;PUT BIT NUMBER IN 
JMP SK050 ;SET THE BIT VALUE 

J************************************************ 

; INPUT PARAMETER RECEIVED - SET PARAMETER MASK * 
• *********************************** ************* 



A-REGISTE 



7643 




SK020 


EQU 


S 


7643 


21 DBF F 




LXI 


H # PARM1 


7646 


3E43 




MVI 


A # ASCA+2 


7648 


91 




SUB 


C 


7649 




SK050 


EQU 


$ 


7649 


CD7476 




CALL 


SPAR1 


764C 


79 




MOV 


A,C 


764D 


E620 




ANI 


40Q 


764F 


C2C975 




JNZ 


SJMP2 



;SET H,L TO PARAMETER ADDRES 
; COMPUTE BIT INDEX: 
;<A>=2, <B>*1, <C>=0 



;SET PARAMETER MASK 
; RECALL INPUT CHARACTER 
; UPPER CASE CHARACTER? 
;N0 - CLEAR ACCUMULATOR AND 
CONTINUE ESCAPE SEQUENCE 
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7652 
7655 
7658 
7659 
765C 



1 1 DBF F 

21F3FF 

1A 

3A11FF 

E602 



LXI 


D,PARM1 


LXI 


H*MFLG2 


LDAX 


D 


LDA 


KFL6S 


AN I 


PRMBM 
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;YES - SET LATCHING KEYS 
;<D,E=SOURC£; H,L*DEST> 

;GET INPUT PARAMETER 

;EXTRACT INHIBIT MASK 
;( PERMANENT BLOCK KOBE) 

FALL INTO EVALUATION ROUTINE 
AND EXIT 







# 

r 


EXIT X A^B 






i 




<H # L 


765E 




SBITS 


EQU $ 


765E 


2F 






CMA 


765F 


47 






MOV B # A 


7660 


1A 






LDAX D 


7661 


AE 






XRA H 


7662 


AO 






ANA B 


7663 


AE 






XRA H 


7664 


77 






MOV M,A 


7665 


1B 






DCX D 


7666 


2B 






DCX H 


7667 


C9 






RET 



********************************************* 

STB ITS - SET FLAG BITS FROM PARAMETER MASK * 
********************************************* 

ENTRY: A = CHANGE INHIBIT MASK 

BIT SET TO 1 TO INHIBIT CHAN6ES 
D,E = INPUT PARAMETER 
H,L * WORD TO BE SET 

DESTROYED 
) UPDATED 



; INVERT INHIBIT MASK 
;SAVE INHIBIT MASK 
;GET PARAMETER VALUE 
;EXTRACT CHANGES TO SETTINGS 
;MASK OUT INHIBITED CHANGES 
;ALTER APPROPRIATE BITS 
;UPBATE CURRENT SETTINGS 
^INCREMENT TO NEXT VALUES 

;RETURN 



;****************************** 

; STPARM - SET PARAMETER MASK * 
****************************** 



ENTRY s A = BIT/WORD INDEX 
H = BASEH 
IODATA « PARAMETER VALUE 

EXIT : PARAMETER WORD MASK SET 
A,B,L DESTROYED 



7668 




SPARM 


EQU 


$ 


7668 


47 




MOV 


B # A 


7669 


E6F8 




ANI 


370Q 


766B 


OF 




RRC 




766C 


OF 




RRC 




766D 


OF 




RRC 




766E 


2F 




CMA 




766F 


3C 




INR 


A 


7670 


C6DB 




ADI 


PARM 


7672 


6F 




MOV 


L,A 






;*************** 






; DETERMINE 


BIT 






;*************** 


7673 


78 




MOV 


A,B 


7674 




SPAR1 


EQU 


$ 


7674 


E607 




ANI 


7Q 


7676 


47 




MOV 


B,A 



;SAVE INDEX IN B-REGISTER 
;MASK OUT 3 LEASE SIGNIFICAN 
;BITS AND DIVIDE BY 8 TO 
; DETERMINE WORD INDEX (0-2 

;SET TO NEGATIVE INDEX 

R1-CST0R ^COMPUTE JUMPER WORD ADD 

;PUT LSB INTO L (H * BASEH) 
***************** 

TO BE MODIFIED * 
***************** 

;RECALL CHARACTER INDEX 

;EXTRACT BIT NUMBER 
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7677 3E80 



7691 
7691 
7693 
7694 
7696 
7698 
7699 
769B 
769C 
769D 



769E 
76 9E 
76A0 
76A1 
76A3 
76A4 
76A6 
76 A9 
76 AB 
76 AC 
76AD 



HVI A,200Q 



7679 




SP010 


EQU 


$ 


7679 


07 




RLC 




767A 


05 




DCR 


B 


767B 


F27976 




JP 


SP010 


76 7E 


47 




MOV 


B # A 






;****************** 






; BET ERMINE 


WHETHER 






;****************** 


767F 


EB 




XCHG 




7680 


2ADEFF 




LHLD 


IDATA 


7683 


7D 




MOV 


A,L 


7684 


34 




ORA 


H 


7685 


EB 




XCHG 




7686 


78 




MOV 


A,B 


7687 


CA8D76 




JZ 


SP020 


76 8A 


B6 




ORA 


R 


76 8B 


77 




MOV 


M,A 


768C 


C9 




RET 





B 
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SET INITIAL BIT LOCATION 



;R0TATE OKE BIT LEFT 
;BIT POSITION FOUND? 
;N0 - CONTINUE ROTATING 
;VES - SAVE BIT MASK IN B 
**************************** 

IT IS TO BE SET OR CLEARED * 
**************************** 

;SAVE WORD ADDRESS IN D,F 
;GET PARAMETER VALUE 



;BIT TO BE SET? 
; (RESTORE H„L) 



;(RECALL BIT 

;N0 - SET PARM 
;YES - ADD BIT 
;SET PARAMETER 
;RETURN 



TO MODIFY) 
BIT TO CLEAR 
TO PARAMETER 



;**************-*********** 

; CLEAR BIT IN PARAMETER * 
;************************* 



76 8D 




768D 


2F 


768E 


A6 


768F 


77 


7690 


C9 



SP020 



EQU 
CMA 
ANA 
MOV 
RET 



;********** 

; ALPCHK - 
;********** 



M 
M # A 



;SET TO CLEAR MASK 
;CLEAR BIT FROM PARAMETER 
;SET PARAMETER 
;RETURN 



APCHK 



FE20 

C8 

E6DF 

FE41 

F8 

FE5A 

FO 

BF 

C9 



FE20 

C8 

FE2B 

D8 

FE2F 

CA3B75 

FE39 

FO 

BF 

C9 



EQU 
CPI 
RZ 
AN I 
CPI 
RM 
CPI 
RP 
CMP 
RET 
;********** 

; NUMCHK - 
********** 

EQU 

CPI 

RZ 

CPI 

RC 

CPI 

JZ 

CPI 

RP 

CMP 

RET 

END 



NMCHK 



******************************** 

CHECK FOR ALPHA TYPE CHARACTER * 
******************************** 

$ 

ABLNK ;IS CHARACTER A BLANK? 

;YES - RETURN OK CZ TRUE) 
377Q-40Q ;N0 - FORCE TO UPPER CASE 
ASCA ;IS IT ABOVE LETTER A? 

;N0 - RETURN FAIL <Z FALSE) 
Z ;IS IT Z OR ABOVE 

;YES - RETURN (Z TRUE IF =) 
A ;N0 - SET Z TRUE 

;RETURN GOOD CZ TRUE) 
********************************** 

CHECK FOR NUMERIC TYPE CHARACTER * 
******* **************** *********** 

$ 

:IS CHARACTER 



ABLNK 

PLUS 

SLANT 
NEXIT 
ZERO+9 



;YES - 

; BELOW 
;YES - 

;SLANT 
;YES - 

;NINE 
;N0 - 



RETURN 

PLUS? 

RETURN FAIL 

CHARACTER? 

RETURN FAIL 
OR BELOW? 
RETURN <Z 



A BLANK? 
OK (Z TRUE) 



TRUE IF =) 



;YES - SET 
;RETURN 



Z TRUE 



N3 PROGRAM ERRORS 
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SYMBOL TABLE 

* 01 

A 0007 ABLNK 0020 AKYNM 0020 APCHK 7691 

ASCA 0041 ATOLF 0004 ATOUT 702A * ATTRM 0001 

B 0000 B15 8000 BCKTB 00E9 BELL 7595 

3KC0L 0001 BKDLY 001E BKFL6 FFOE BKKDE 0002 

BKSET OOFF * BKTMR 91E0 BKTR6 0001 * BKTRW 7804 

BKYNM 0040 BKYRN OOOD BLLED 0080 BSPCE 0008 

C 0001 CB010 7534 CBASE OOFF CBRK1 7534 

CBRKY 7529 CC010 732D CDSFN 7304 CECK1 0001 

CECK2 0002 CEKCC 0040 * CFLGS FFF8 CI010 751A 

CICHR 7319 CIJMP FFEO CIOKY 74F0 CIVEC FFE1 

CKYNH 0010 CLMSK 001F CMLOK 72F6 CMIION FFFF 

CNMS 0001 * CNOTN 009F CPSLK 0001 CRDKY OOAO 

CRLFT 00C4 CRLNE OOCB CRMD1 7564 CRRHT 0OC3 

CRTAB O0B2 CRTBS O0B3 CRTRG 0000 * CRTRK 0002 

CRXMT 75A7 CSAOJ 0020 CSCRN OOCA CSTOR FFOO 

D 0002 D2SND 0080 BCR&X OOOA ML 007F 

DFLED 0001 DFSKY 0008 DHWRP OOCF D20FF 0010 

DJMPO 0080 * DJMP1 0001 * DJMP2 0002 * BJMP3 0004 

DJMP4 0008 * DJKS2 7806 DJMSK 7805 DLCHR OODO 

DMERR 0001 * DNCOF 009A DPFNC 0001 DPFON 00D9 

DSCNT 0006 * DSPST FFFE E 0003 ECFLG FFD1 

EDBLK 0007 * EDIT 0010 * EDPRF OOOB EBTSO 7498 

EDTST 74A0 EFNLM 00A1 * EHNCF OOFF ERFL6 FFF7 

ETCOL 0002 ETLEO 0010 ETRCB 0098 ETWRP 0008 

FBASE 0080 FCLIM 0087 FCPTY 0080 * FCRST 0004 

FCTAB 7129 FD010 7583 FOLED 757F FFUNG OOFO 

FLDUP 0080 * FORGN 0080 * FRMAT 0008 * FSALT 7029 

FTBIN OOOA * FTOFF 00D8 FTONF 00D7 FTRAM 9100 

FTSND 0020 * GK005 7178 GK010 7182 GKD20 718C 

6K030 719C 6K040 71A2 GK060 71A8 6K100 71AF 

6K120 71C7 GK130 71CE GK150 71E9 GK160 7208 

GK170 7215 GK180 721A GK190 721C GK200 7225 

GK210 723B GK215 725D 6K220 7262 GK230 7277 

6K240 728B GK300 7291 GK310 72A9 * GK320 72AF 

GK330 72BC GK350 72C7 GK370 72CD GK380 72DB 

GK400 72E9 GK410 7314 GK450 7347 6KYMM 7303 

GKYX1 727C GN010 73DA GTKEY 7169 H 0004 

HDSHK 0040 KMEDN 00C6 HMEUP 00E8 XBASE 0080 

ICSGN FFDD IDATA FFDE IHLED 0002 IKROF 00D2 

IHRON 0OD1 IITKO 714F IITK1 7165 * IITKB 7137 

IKBCL 8320 IKBCO 8380 IKBDC 830F IKBLD 8300 

IKBS2 8380 IKBS3 83A0 IKBSU 830E IKtCL 0001 

IKYRW FF1B I0KB 8300 IPSGN FFOC IRPON OOCE 

ISCHR 0002 ISWRP 0002 * ITFL6 FFF6 ITVEC 9165 

KBASE 7000 KBBUF 91F2 KBCTL 7417 KBFPT 91 FO 

KBMON 7353 KBUF2 FF12 KBUFL 00F2 KCHAR FFOF 

KCTAB 742A KCTLM OOOA KCTSH FF12 KCTX1 744C 

KDCSW FFFC KFBSE 0091 KFL6S FF11 KFRAW 9200 

KFSTR 9100 KGTPT 9U0 KJlMS FF10 KJKP2 FFFA 

KJMP3 FFF9 KJMPR FFFB KKNSV FFOD KLEOS FFOC 

KLOCK 0001 KM010 735F KM020 7371 KM030 7390 

KM040 73A3 KM100 73AC KM110 73C4 KM120 73D1 

KM0N1 7375 KPTPT 91C2 KSBSE OOFF KSRAH FF20 

KSSTR FFOO KTIMR 91EC KYBFL 00C4 KYBLN 0028 

KYBOF 91C4 KYCOL 91EE L 0005 LOSAV FFOB 

LDTAB 758D LF1KY 0004 * LF2KY 0002 LFFKY 0001 
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M 

MGPT1 

MGPT5 

HKLED 

NDCSI 

NMCOL 

OTRDX 

PARM4 

PGSTR 

POMPT 

RADIX 

RET DC 

RKYCD 

RHSET 

RTDLY 

RVMDE 

SBITS 

SDATN 

SJ110 

SJHP3 

SK020 

SLDIS 

SNVEC 

SPAR1 

SR020 

STDLY 

STMON 

STRMG 

STTRG 

TEST 

TMIEN 

TSTOK 

URASC 

Y0212 

Z 

ZCMNS 

ZCTST 

ZGBIN 

ZSPHS 

ZUTDC 



0006 

FFF1 

FFE9 

0004 

0010 

GOOD 

0008 

FFD8 

0008 

OOOD 

FFD4 

0002 

009C 

0010 

0006 

0020 

76 5 E 

OOOB 

75D6 

75CF 

7643 

0002 

9168 

7674 

7415 

00 33 

0008 

O0B5 

0001 

OOFA 

0002 

0002 

709B 

008A 

005A 

004C 

7814 

781D 

0040 

781 A 



MCDBS 

MGPT2 

M6PT6 

MLKON 

NEXIT 

NMFCT 

PARM1 

PARM5 

PLUS 

PRMBM 

RCLED 

RETKB 

RK YN« 

RNGTA 

RTKEY 

S1010 

SBLKM 

SDFCT 

SJ120 

SJMPR 

SK050 

SLECT 

SP 

SPARM 

SRKMD 

STLCL 

STNRK 

STROM 

STXWT 

TIACK 

TMRON 

TTCOL 

URLIM 

Y0213 

ZCBAS 

ZCWON 

ZDBIN 

ZN2DC 

ZSTDS 



0040 
FFEF 
FFE7 
OOEC 
753B 
710B 
FFDB 
FFD7 
002B 
0002 
0040 
74AF 
0008 
FFD2 
7470 
7559 
7340 
000 c 
75D7 
75B2 
7649 
0020 
0006 
7668 
7345 
0004 
0009 
0080 
759E 
0000 
0001 
0001 
0040 
008B 
7800 
780 E 
7823 
780B 
0043 



* 

* 

* 
* 



MFLG1 

MGPT3 

RGPT7 

MMDON 

NKALT 

NTEST 

PARK 2 

PARM6 

PNTAL 

PSW 

RCORD 

RHFKY 

RRBIT 

RPTKY 

RTOFF 

S1020 

SBLMD 

SETCH 

SJHP1 

SJTAB 

SKTAB 

SLKYS 

SP010 

SPRPT 

SRTS1 

STLK6 

STPRF 

STRPT 

SXMOF 

TIGGR 

TKTYP 

TTROW 

WBSR 

Y0314 

ZCCTL 

ZCNUM 

ZERO 

ZNIDC 

ZTBIN 



FFF4 
FFED 
FFE5 
00F9 
OOOF 
0004 
FFDA 
FFD5 
0010 
0006 
0040 
0010 
0003 
0008 
0004 
755A 
7457 
0020 
75C1 
75 FB 
7613 
7632 
7679 
7523 
7492 
00B4 
OODD 
73E4 
00 FB 
7802 
FFFD 
FF17 
0020 

oocc 

7811 
0046 
0030 
7808 
7820 



KFLG2 

M6PT4 

K6PT8 

KWLQK 

NMCHK 

NXTPG 

PAR»3 

PCCTL 

POLL 

PTBRK 

RCSEP 

RK010 

RMOTE 

RSTON 

RTTWR 

SA«LF 

SCPLK 

SJ100 

SJHP2 

SK010 

SLANT 

SLLED 

SP020 

SR010 

SRTST 

STWD1 

STREM 

STSFK 

TAB 

TIOFF 

TRI NT 

ULKBD 

XTLED 

YOFF 

ZCINT 

ZCPLS 

ZETDC 

ZSCND 

ZTRTS 



FFF3 
FFEB 
FFE3 
0004 
769E 
00D5 
FFD9 
FFF5 
0040 
0005 
7803 
74BA 
0008 
0002 
FFDO 
733B 
7336 
75 D5 
75C9 
763E 
002F 
0020 
768D 
7413 
7479 
753D 
0003 
OOEA 
0009 
0020 
0003 
744E 
0008 
OOFF 
7826 
0049 
7817 
004F 
0005 



FILE 
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